(12分)修改考生文件夹下的 VB 程序使其具有下列功能: 在明文文本框中输入一串字串,在密文文本框中输出密文,加密规则:若字符为字母,将每个字母向后移 1 、 3 、 5 ,结果仍是字母,其它字符保持不变。界面设计和运行效果如图 4 和图 5 所示。 图 4 图 5 打开 “试题三”文件夹中的工程文件 test3.vbp ,并完成下列操作: ( 3 分)单击单选按钮的控件数组中任一个单选按钮,决定移动位数 n ,添加适当的事件和代码实现此功能(注:变量 N 设置通用变量) 2. ( 15 分)将 3.txt 文件复制到 “加密”按钮的事件中,完成相应的 的代码,让程序正确执行,删除所有注释。 3. ( 2 分) 保存窗体文件和工程文件,生成可执行文件 test3.exe保存到试题目录下的“试题三”文件夹。 Dim n% Private Sub Option1_Click(Index As Integer) '(1) End Sub Private Sub Command1_Click() Dim m%,s$, x$ m = Len( ) '(2) For i = 1 To m x = Mid$(Text1.Text, i, 1) If x >= "A" And x <= "Z" Or Then '(3) x = Chr(Asc(x) + n) If x > "z" Or x > "Z" And x < "a" Then x = Chr(Asc(x) - ) '(4) ‘(5) End If s = s + '(6) Next i Text2.Text = s End Sub