[问答题] 完成下列问题：在考生文件夹下有一个工程文件sjt4.vbp，其窗体如图4所示。该程序用来对在上面的文本框中输入的项字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。

[问答题] 完成下列问题：在考生文件夹下有一个工程文件sjt4.vbp，其窗体如图4所示。该程序用来对在上面的文本框中输入的项字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。

[问答题] 完成下列问题：

在考生文件夹下有一个工程文件sjt4.vbp，其窗体如图4所示。该程序用来对在上面的文本框中输入的项字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，把明文中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)，如图4所示。窗体中已经给出了所有控件和程序，但程序不完整，请在程序中的横线处填写正确的内容。

注意：不能修改程序中的其他部分和控件属性，最后把修改后的文件按原文件名存盘。

[题目提供的源程序]

Private Sub Command1_Click()

Dim n As Integer, k As Integer, m As Integer

Dim c As String, a As String

For k=0 To 2

If Op1(k).Value Then

n=Val(Op1(k). (1)

End If

Next k

m=Len(Text1.Text)

a=""

For k=1 To (2)

c=Mid $ (Text1.Text, (3) ,1)

c=String (1,Asc(c)+n)

If c＞"z" Or c＞"Z" And c＜"a" Then

c=String(1,Asc(c)-26)

En

正确答案：

[ *** 作步骤] 第1步：打开工程文件sjt4.vbp 第2步：分析并修改源程序。 第3步：调试、运行并保存程序。 [1]Caption [2]m [3]k [4]a

参考解析：

根据题意，首先要确定移动的位数，移动的位数由被选择的单选按钮决定，移动的值由单选按钮的Caption属性值决定；然后再确定循环加密的次数，循环的次数是由输入字符的个数Len(Text1.Text)决定的。实现加密方法：使用Mid()函数将字符串中的字符一一取出，利用Asc()函数转换成字符的ASCII码，将ASCII码加上移动的位数后，再利用String()函数将字符ASCII码转换成字符。 Mid()函数的格式为Mid(字符串，p，n)。表示从字符串的第p个字符开始，向后截取n个字符，p和n都是算术表达式。Mid()函数的第三个变量可以省略，这样将从第p个字符开始向后截取到字符串的结尾。 String()函数用于重复指定字符串中的字符，返回新的字符串。 Asc()函数用于返回一个Integer，代表字符串中首字母的字符ASCII码。