要求:题目中所给的程序不完整,请读懂程序后将其补充完整,以原文件名保存。
试题源程序:
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上机试题及答案十
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)