故在第一个?处填入1，表示按下鼠标的左键，第二个?处填入2，表示鼠标的右键。

【答案】

（1）启动VB，打开考生文件夹下的工程文件stj2.vbp。

（2）双击窗体的任何位置，进入代码编辑窗口，补充程序如下： 第一个?处填入1 第二个?处填入2

（3）运行程序，确定无误后以原文件名保存。 （2）【解析】

本题主要考查了文本框的KeyPress事件。每按下键盘的一个键就触发一次

KeyPress事件。在本题中用文本框的KeyPress事件来测试输入口令是否正确。在该过程中，定义了3个静态变量，其中Numberftries变量用来对输入的口令字符计数。每按一次键，就触发一次KeyPress事件，Numberftries变量加1，当该值达到12时结束程序，因此第一个问号处应填入Numberftries = 12。口令由四个字符组成，既由每次输入的字符连接起来组成，因此第二个问号处应填入Chr$(KeyAscii)，用Counter来表示输入口令长度，每输入四个为一个完整的口令，因此第三个问号处应填入Counter = 4。 【答案】

（1）启动VB，打开考生文件夹下的工程文件stj4.vbp。 （2）双击窗体的任何位置，进入代码编辑窗口，填写代码： 第一个?处填入：Numberftries = 12 第二个?处填入：Chr$(KeyAscii) 第三个?处填入：Counter = 4

（3）填写完毕，调试并运行，运行无误后以原文件名保存。

综合应用（1小题，共30分）

****************************************************************

请根据以下各小题的要求设计VB应用程序（包括界面和代码）。

在考生文件夹下有工程文件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 Integer 4 Dim i As Integer 5 Dim m As Integer 6 Dim Str As String

7 Dim StrText As String 8 For i = 0 To 2

9 If Option1(i).Value Then 10 ′ n=Val(?.Caption) 11 End If 12 Next i

13 m = Len(Text1.Text) 14 For i = 1 To m

15 ′ Str=Mid$(Text1.Text,?,1) 16 ′ Str=?(1,Asc(Str)+n)

17 If Str > \\

18 Str = String(1, Asc(Str) - 26) 19 End If

20 StrText = StrText + Str 21 Next i

22 Text2.Text = StrText 23 End Sub 24

25 Private Sub Command2_Click()

26 Dim s As String

27 Open App.Path & \For Input As #1 28 Input #1, s 29 Text1.Text = s 30 Close #1 31 End Sub

****************************************************************

参考答案与分析

【解析】

第一个？处填Option1(i)，表示如果第i个单选框被选中，则把第i个单选框的Caption转换成数值赋给n。Mid表示从字符串指定的位置截取指定的字符。第二个？处填i，表示从字符串第i个字符处向右截取1个字符，这为转化这个字符做准备。第三个？处填String，表示返回指定数量的指定字符串，它的第一个参数确定返回字符串的个数，第二个字符串确定返回的字符。注意，String函数的第二个参数，可以是Ascii码值，返回对应的字符。 【答案】

1．单击考试界面的\功能\选项，从弹出的菜单中选择\启动应用程序\选项。Visual Basic启动后，打开考生文件下的工程文件。

2.将文本框Text1与Text2的MultiLine属性设为True,ScrollBars属性设为2。 3.双击窗体的任何部分，进入程序编写窗口，补充程序如下： 第一个？处填Option1(i) 第二个？处填i

第三个？处填String

4．填写完毕，删除\′\符号，调试程序，确定无误后，将工程与窗体按照原来的文件名保存在考生文件夹下。