vb题目怎么做

试题三:(23分)修改考生文件夹下的VB程序使其具有下列功能:在明文文本框中输入一串字串,在密文文本框中输出密文,加密规则:若字符为字母,将每个字母向后移1、3、5,结果... 试题三:(23分)

修改考生文件夹下的VB程序使其具有下列功能:
在明文文本框中输入一串字串,在密文文本框中输出密文,加密规则:若字符为字母,将每个字母向后移1、3、5,结果仍是字母,其它字符保持不变。界面设计和运行效果如图4和图5所示。

图4 图5

打开“试题三”文件夹中的工程文件test3.vbp,并完成下列操作:
1. 单击单选按钮的控件数组中任一个单选按钮,决定移动位数N,添加适当的事件和代码实现此功能(注:变量N设置通用变量)(9分)
2. 将3.txt文件复制到“加密”按钮的事件中,完成相应的(1)、(2)(3)填空及在注释1所在行添加一条代码,并修改“注释2”所在行的代码,让程序正确执行,删除所有注释。(2+2+2+3+3=12分)
3. 保存窗体文件和工程文件,生成可执行文件test3.exe保存到试题目录下的“试题三”文件夹。(2分)
Dim m%,s$, x$
m = Len((1))
For i = 1 To m
x = Mid$(Text1.Text, i, 1)
If x >= "A" And x <= "Z" And (2) Then
x = Chr(Asc(x) + n)
ElseIf x > "z" Or x > "Z" And x < "a" Then
x = Chr(Asc(x) - (3))
'注释1:选择结构的格式
End If
s = s +val(x) '注释2:处理后的字符连接
Next i
Text2.Text = s
展开
 我来答
yc稚
2018-11-22
知道答主
回答量:1
采纳率:0%
帮助的人:802
展开全部
Private Sub Command1_Click()
Dim m%
Dim s$, x$
m = Len(Text1.Text) '答案为Text1.Text 3分
For i = 1 To m
x = Mid$(Text1.Text, i, 1)
If x >= "A" And x <= "Z" Or x >= "a" And x <= "z" Then '答案为x >= "a" And x <= "z" 3分
x = Chr(Asc(x) + n)
If x > "z" Or x > "Z" And x < "a" Then
x = Chr(Asc(x) - 26) '答案26 3分
End If '答案为 End If 3分
End If
s = s + x '修改为x 3分
Next i
Text2.Text = s
End Sub
Private Sub Option1_Click(Index As Integer) '1分
n = Option1(Index).Caption '2分
End Sub
‘复制在VB中看得更清楚
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
hhglzgcz
2017-10-18 · TA获得超过959个赞
知道小有建树答主
回答量:1800
采纳率:54%
帮助的人:448万
展开全部
你这个代码不完整,下面没法看,不知道 你想要什么样的答案,你这代码里没有可以添加的地方,再说这么难的题你多少加点分呀。
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式