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 展开
修改考生文件夹下的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 展开
2个回答
展开全部
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中看得更清楚
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中看得更清楚
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你这个代码不完整,下面没法看,不知道 你想要什么样的答案,你这代码里没有可以添加的地方,再说这么难的题你多少加点分呀。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询