第六套 试题二 修改考生文件夹下的 VB 程序使其具有下列功能: 在明文文本框中输入一串字串,在密文文本框中输出密文,加密规则:若字符为字母,将每个字母向前移 3 位,结果仍是字母,数字向后移 3 位,结果仍是数字,其它字符保持不变。例如: 1 加密后是 4 , 8 加密后是 1 ,对于字母, D 加密后是 A , A 加密后是 X 。界面设计和运行效果如图 2 所示: 图 2 操作要求: 打开 “试题二“文件夹中的工程文件“test2.vbp”,完成下列操作: 1. ( 24 分)根据题意完成相应的 ( 1)、(2)、(3)、(4)、(5)、(6)、(7)、(8)填空 以让程序正确执行。调试并运行程序 。 2 .( 1 分) 保存窗体文件和工程文件,生成可执行文件 test2.exe保存到试题目录下的“ 试题二 ” 文件夹。 Option Explicit Private Sub Command1_Click() Dim str$, x$, k%, s$, i% str = '(1) For i = 1 To Len(str) x = '(2) k = Asc(x) If UCase(x) >= "A" And UCase(x) <= "C" Then ' k = '(3) ElseIf UCase(x) >= "C" And UCase(x) <= "Z" Then '3 分答案是: UCase(x) >= "C" k = k - 3 ElseIf x >= "0" And x <= "9" Then k = k + 3 '(3) If Then '(4) k = k - 10 End If End If s = '(5 ) Next i Text2.Text = '(6) End Sub Private Sub Command2_Click() End End Sub