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

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

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

    注意：不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案【操作步骤】 步骤l：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符“′”，将问号改为正确的内容。 参考答案(阴影部分是需考生填入的内容) PriVate Sub Commandl_Click() Dim n As Integer， k As Integer， m As Integer Dim c As String，a As String For k=0 To 2 If Opl(k)．Value Then n=Val(Opl(k)． Caption ) End If Next k m=Len(Textl．Text) a=＂＂ For k=1 To m c=Mid$(Textl．Text， k ，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 a =a+c Next k Text2．Text=a End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 【易错提示】单选按钮数组的起始下标为0，而不是l，在循环和判断的时候要特别注意。
解析 根据题意，首先要确定移动的位数，移动的位数是通过单选按钮来选择的，移动的值是由单选按钮的Caption属性值决定的，然后要确定循环的次数，循环的次数是由输入字母的个数决定的。使用Mid()函数取出字符串中的字符，利用Asc()函数返回字符的代码，利用String()函数将字符代码转换成字符。
转载请注明原文地址:https://www.kaotiyun.com/show/eATp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)