键盘与鼠标事件过程
(总分44,考试时间90分钟)
一、选择题
1. 以下叙述中错误的是______ 。
A. 双击鼠标可以触发DblClick 事件
B. 事件的名称可以由编程人员确定
C. 移动鼠标时，会触发MoussMove 事件
D. 控件的名称可以由编程人员设定
2. 下列与拖放操作无关的是______ 。
A. KeyPress 事件        B. Drag 方法
C. DragOver 事件        D. DragDrop 事件
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. 当MousePointer 属性为1时，将把鼠标的形状设置为Windows 的默认值
B. MouseIcon属性的设置要受到KeyDown事件的影响
C. 自定义鼠标光标通过MouseIcon属性设置
D. 为了定义用户自己的鼠标光标，必须把MousePointer 属性设置为99
5. 拖放要触发两个事件，这两个事件是______ 。
A. Dragover 事件和DragDrop 事件
B. Drag 事件和DragDrop 事件
C. MouseDown 事件和KeyDown 事件
D. MouseUp 事件和KeyUp 事件
6. 下列与改变鼠标光标形状有关的是______ 。
A. MouseMove 事件        B. MouseDown 事件
C. MousePointer 属性        D. MouseUp 事件
7. 设有如下程序；  Private Sub Form_ Load()    Show    Text1.Text = " "    Text1.SetFocus  End Sub  Private Sub Form_ MouseUp (Button As Integer,          Shift As
Integer, X As Single, Y As Single)    Print “程序设计”  End Sub  Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Integer)    Print "Visual Basic"  End Sub程序运行后，如果在文本框中输入字母a(即直接按a键)，然后单击窗体，则在窗体上显示的内容是______ 。
A. Visual Basic        B. 程序设计
C. Visual Basic程序设计        D. A程序设计
8. 以下叙述中错误的是______ 。
A. 在KeyUp和KeyDown 事件过程中，从键盘上输入的A和a被视作相同的字母(具有相同的KeyCod
B. 在KeyUp 和KeyDown 事件过程中，将键盘上的1和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCod
C. KeyPress 事件中不能识别键盘上键的按下与释放
D. KeyPress 不能识别回车键
9. 在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码：  Dim SaveAll As String  Private Sub Form_ Load ()    Show    Text1.Text = " "    Text1. SetFocus  End Sub  Private Sub Command1 Click()    Text1. Text= LCase(SaveAll)  End Sub  Private Sub Form_ KeyPress (KeyAscii As Integer)    SaveAll = SaveAll + Chr(KeyAscii)  End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______ 。
A. abodefg        B. 不显示任何信息
mousemove是什么键C. ABCDEFG        D. 出错
10. 编写如下事件过程：  Private Sub FOrm_ MouseDown (Button As Integer,            Shift As Integer, X As Single, Y As Single)    If Button = 2 Then    Pint "AAAA" Then    End If  End Sub  Private Sub Form_ MouseUp (Button As Integer, _            Shift As Integer, X As Single, Y As Single)    Print "BBBB"  End Sub程序运行后，如果在窗体上单击鼠标右键，则输出结果为______ 。
A. AAAA  BBBB        B. BBBB
C. AAAA        D. BBBB  AAAA
11. 在窗体上画一个名称为Text1的文本框，要求文本框只能接收大写字母的输入。以下能够正确实现该操作的事件过程是______ 。
A. Private Sub Text1_ KeyPress (KeyAscii As Intege    IfKeyAscii ＜ 65 Or KeyAscii ＞ 9t Then      MsgBox “请输入大写字母”    End If  End sub
B. Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Intege    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 Singl    IfAsc (Text1.Tex ＜ 65 Or Asc (Text1. Tex ＞ 91 Then      MsgBox “请输入大写字母”    End If  End sub
D. Private Sub Text1_ Change()    IfAsc(Text 1.Tex ＜ 65 Or Asc(Text1. Tex ＞ 91 Then      MsgBox “请输入大写字母”    End If  End sub
12. 假定编写了如下事件过程：  Private Sub Form MouseDown (Button As Integer, _  Shift As Integer, X As Single, Y As Single)    If Button And 2 Then    Print "AAAA"    End If  End Sub程序运行后，为了在窗体上输出AAAA，应按下的鼠标键为______ 。
A. 左        B. 右
C. 同时按下左、右        D. 按什么键都不显示
13. 窗体上画一个名称为Text1的文本框，然后编写如下事件过程：  Private Sub Form Load()    Show    Text1. SetFocus  End Sub  Private Sub Text1_ KeyPress (KeyAscii As Integer)    Dim ch As String    ch = Chr (KeyAscii)    KeyAscii = Asc(UCase(ch))    Pint Chr(KeyAscii + 4)  End Sub程序运行后，在文本框中输入abcde，则在窗体上显示的内容是______ 。
A. abcde        B. efghi
C. EFGHI        D. ABCDE
14. 以下叙述中正确的是______ 。
A. KeyAscii 参数返回所按键的ASCII码
B. KeyAscii 参数的数据类型为字符串
C. KeyAscii 参数与KeyCode 参数的返回值相同
D. 在KeyPress事件过程中，KeyAscii参数可以省略

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。