[问答题] 在考生文件夹下有工程文件djks043.vbp及窗体文件djks043.frm，该程序是不完整的，请在有的地方填入正确内容，然后删除及所有注释符(’)，但不能修改其他部分。存盘时不得改变文

[问答题] 在考生文件夹下有工程文件djks043.vbp及窗体文件djks043.frm，该程序是不完整的，请在有的地方填入正确内容，然后删除及所有注释符(’)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有两个标签、两个文本框、一个框架、三个单选框以及两个控制按钮。标签的名称分别为Label1与Label2，标题分别为“原文本”、“加密文本”；文本框的名称分别为Text1与Text2，Text属性均为空；两个控制按钮的名称分别为Command1与Command2，标题分别为“加密”与“读入”；单选框的名称统一为Option1，标题分别为2、4、6；框架名称为frame1，标题为“加密类型”。单击“读入”按钮，程序将读入考生文件夹下的文本文件in043.txt，单击“加密”按钮，加密过的文本显示在Text2中。根据单选框中不同的数字，加密的方法不同。例如选择Option1，则逐一把Text1中的字符串改为它后面的第2个字母。程序运行时的窗体界面如下图所示。

[试题源程序]1 Private Sub Command1_Click( )2 Text2.Text=""3 Dim n As Integer4 Dim i As Integer5 Dim m As Integer6 Dim Str As String7 Dim StrText As String8 For i=0 To 29 If Option1(i).Value Then10 n=Val(.Caption)11 End If12 Next i13 m=Len(Text1.Text)14 For i=1 To m15 Str=Mid S(Text1.Text, , 1)16 Str=(1，Asc(Str)+n)17 If

参考答案：

第一步：启动Visual Basic，打开考生文件夹下的工程文件sjt5.vbp。第二步：把计时器控件的Enabled属性设置为“False”，Interval属性设置为1000。第三步：双击窗体中的任何位置，进入代码编辑窗口，填写代码如下：笫一个处填入Index。第二个处填入0。笫三个处填入+1。第四步：填写完毕，调试成功后，以原文件名保存。在本题中两个命令按钮组成了一个控件数组，名称为C1。查看Index属性可知，开始计数按钮的Index值为0，停止计数按钮的Index值为1。本题中用到了多分支选择语句Selectcase语句结构。在这种结构中，只有一个用于判断的表达式，根据此表达式的不同计算结果，执行不同的语句体部分。本题中根据控件数组的Index属性值的取值情况决定计时器的Enabled属性值。

问题解析:

在本题中是用两个命令按钮来控制计时器的启动和停止，因此应在窗体设计时将其Enabled属性设置为False。由于本题要求时间间隔为1s，因此计时器的Interval属性应设置为1000ms。