二级VB笔试分类练习题 键盘与鼠标事件过程.docVIP

15．3 实战练习 一、选择题 1．以下叙述中正确的是______ 。 A．KeyAscii 参数返回所按键的ASCII码 B．KeyAscii 参数的数据类型为字符串 C．KeyAscii 参数与KeyCode 参数的返回值相同 D．在KeyPress事件过程中，KeyAscii参数可以省略 2．在KeyUp 事件过程中，通过KeyCode 参数判断用户的按键。假定键“B”的 KeyCode值为66，则以下正确的说法是______ 。 A．按Shift+ B键后的KeyCode值为66+1 B．按Shift+ B、Ctrl+ B、Alt+ B键后的KeyCode值均为66 C．按Ctrl+ B键后的KeyCode值为66+2 D．按Alt+ B键后的KeyCode值为66+4 3．编写如下事件过程； Private Sub Form_ MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) If Shift = 6 And Button = 1 Then Print BBBB End If End Sub 程序运行后，为了在窗体上输出 “BBBB”，应执行的操作为______ 。 A．同时按下Shift 键和鼠标左键 B．同时Ctrl、Alt 键和鼠标左键 C．同时按下Shift 键和鼠标右键 D．同时按下Ctrl、Alt 键和鼠标左键 4．以下叙述中错误的是______ 。 A．在KeyUp和KeyDown 事件过程中，从键盘上输入的A和a被视作相同的字母(具有相同的KeyCode) B．在KeyUp 和KeyDown 事件过程中，将键盘上的1和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCode) C．KeyPress 事件中不能识别键盘上键的按下与释放 D．KeyPress 不能识别回车键 5．在窗体上画一个名称为Text1的文本框，然后编写如下事件过程： Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc (UCase(ch)) Text1. Text = String(1, KeyAscii) End Sub 程序运行后，使文本框拥有焦点，然后按键盘上的B键，则在文本框中显示的内容是 ______ 。 A．b B．bb C．BB D．B 6．在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能够正确实现该操作的事件过程是______ 。 A. Private Sub Text1_ KeyPress (KeyAscii As Integer) IfKeyAscii ＜ 65 Or KeyAscii ＞ 9t Then MsgBox “请输入大写字母” End If End sub B. Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Integer) IfKeyCode ＜ 65 Or KeyCode ＞ 91 Then MsgBox “请输入大写字母” End If End sub C. Private Sub Text1_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, YAs Single) IfAsc (Text1.Text) ＜ 65 Or Asc (Text1. Text) ＞ 91 Then MsgBox “请输入大写字母” End If End sub D. Private Sub Text1_ Change() IfAsc(Text 1.Text) ＜ 65 Or Asc(Text1. Text) ＞ 91 Then MsgBox “请输入大写字母” End If End