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

12 查阅

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

在考生文件夹下有一个工程文件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)

End If

(4) =a+c

Next k

参考答案:

[操作步骤] 第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码。

计算机考试