在考生文件夹下有一个工程文件sjt4.vbp,其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密,加密结果(称为“密文”)显示在下面的文本框中。加密的方法为:选中一个单选按钮,单击“加密”按钮后,根据选中的单选按钮后面的数字n

admin2016-06-23  24

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

注意:不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。

选项

答案[操作步骤] 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) 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 OD1(k).Value Then n=Val(Op1(k).Caption) End If Next k m=Len(Text1.Text) a="" For k=1 Tom c=Mid$(Text1.Text,k,1) c=String(1,Asc(c)+n) IfC>"z"Or c>"Z"And c<"a"Then c=String(1,Asc(@C@-26) End If a=a+c Next k Text2.Text=a End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析
转载请注明原文地址:https://jikaoti.com/ti/fQJ0FFFM
0

最新回复(0)