要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。
试题源程序：
1 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
2 'If Button = ? Then Print \您按下了鼠标的左键\
3 'If Button = ? Then Print \您按下了鼠标的右键\
4 End Sub
（2）在考生文件夹下有一个工程文件stj4.vbp，及其窗体文件stj4.frm，窗体上有一个标签和一个文本框，控件及其属性均已设置完毕，现使用KeyPress事件编写一个口令程序，程序运行后，在文本框中输入口令，如果正确，则显示相应的信息，单击\确定\按钮后，将显示一行信息；如果口令不正确，则要求重新输入。3次输入的口令都不正确，则停止输入，并结束程序。程序运行的画面如图所示。
要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。试题源程序：
1 Private Sub Form_Load()
2 Text1.Text = \
3 Text1.FontSize = 10
4 Label1.FontSize = 12
5 Label1.FontBold = True
6 Label1.Font0 = \隶书\
7 Label1.Caption = \请输入口令...\
8 End Sub
9 Private Sub Text1_KeyPress(KeyAscii As Integer)
10 Static PWord As String
11 Static Counter As Integer
12 Static Numberftries As Integer
13 Numberftries = Numberftries + 1
14 'If ? Then End
15 Counter = Counter + 1
16 'PWord = PWord + ?
17 KeyAscii = 0
18 Text1.Text = String$(Counter, \
19 If LCase$(PWord) = \
20 Text1.Text = \
21 PWord = 0
22 MsgBox \口令正确，继续...\
23 Counter = 0
24 Print \
25 'ElseIf ?Then
26 Counter = 0
27 PWord = \
28 Text1.Text = \
29 MsgBox \口令不对，请重新输入\
30 End If
31 End Sub
****************************************************************
参考答案与分析
（1）【解析】
本题主要考查了鼠标左键以及右键的使用，即鼠标的Button属性。Button为1时，表示鼠标的左键，为2时，表示鼠标的右键，为4时，表示鼠标的中键，故在第一个?处填入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上机试题及答案十
