第十一章单元测试
当用户按键时,KeyPress、KeyDown、KeyUp事件的执行顺序为( )。
文本框Textl的KeyDown事件过程中参数KeyCode值表示( )。
编写如下两个事件过程:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
一般情况下(即不按住Shift和锁定大写)运行程序,如按“A”键则输出( )。
在窗体上画一个命令按钮和一个文本框,并把窗体的KeyPreview设置为True(在激活对象上的控件键盘事件之前,优先激活键盘事件,即Form优先)然后编写如下代码:
Dim SaveAll As String
Private Sub Command1_Click()
Text1.Text=Ucase(SaveAll)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
SaveAll= SaveAll+Chr(KeyAscii)
End Sub
程序运行后,在键盘上输入“abcdefg”,单击命令按钮,则文本框显示为( )。
在上题中,如果把窗体的KeyPreview设置为False,则文本框中显示的内容为( )。
下列关于MouseMove事件,描述正确的是()。
当鼠标左键按下时,下列哪个事件被激发()。
在鼠标事件中,语句If Button=2 成立的条件是()。
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Shift = 6 And Button = 2 Then
Print "BBBB"
End If
End Sub
程序运行后,为在窗体上输出“BBBB”,应执行操作为()。
编写如下事件过程:
Private Sub Form_Keydown(KeyCode As Integer, Shift As Integer)
If (Button And 3) = 3 Then
Print "AAAA"
End If
End Sub
程序运行后,为了在窗体上输出“AAAA”,应按下的鼠标键为()。
A:KeyDown事件、KeyUp事件、KeyPress事件 B:D.KeyDown事件、KeyUp事件与KeyPress事件 C:KeyDown事件、KeyPress事件、KeyUp事件
D:KeyPress事件、KeyDown事件、KeyUp事件
答案:KeyDown事件、KeyPress事件、KeyUp事件
A:按下的是哪个数字键
B:所按的键盘键的键码
C:是否按下了Alt键或Ctrl键 D:按下的是哪个鼠标键
A:A a B:a a
C:a A
D:A A
A:abcdefg B:不显示任何信息
C:ABCDEFG
D:出错
A:不显示任何信息
B:出错
C:ABCDEFG
D:abcdefg
A:伴随鼠标的移动而连续不断的发生 B:每秒激发一次 C:与鼠标的灵敏度有关 D:当鼠标移动时被激活一次然后等待下次移动
A:MouseDown事件 B:KeyDown事件 C:KeyPress事件 D:MousePress事件
A:按键盘数字键2 B:单击鼠标右键 C:单击鼠标左键 D:双击鼠标左键
A:同时按下Ctrl、Alt和鼠标左键 B:同时按下Shift和鼠标左键 C:同时按下Shift和鼠标右键 D:同时按下Ctrl、Alt和鼠标右键
A: 按什么键都不显示 B: 右 C: 左 D: 同时左,右