资料仅供参考
要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。 试题源程序：
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
全国计算机等级考试二级VB上机试题及答案十一
