1、键盘与鼠标事件过程及答案解析(总分：44.00，做题时间：90 分钟)一、B选择题/B(总题数：17，分数：34.00)1.以下叙述中错误的是_ 。（分数：2.00）A.双击鼠标可以触发 DblClick 事件B.事件的名称可以由编程人员确定C.移动鼠标时，会触发 MoussMove 事件D.控件的名称可以由编程人员设定2.下列与拖放操作无关的是_ 。（分数：2.00）A.KeyPress 事件B.Drag 方法C.DragOver 事件D.DragDrop 事件3.编写如下事件过程； Private Sub Form_ MouseDown (Button As Integer, Shift
2、As Integer, X As Single, Y As Single) If Shift = 6 And Button = 1 Then Print “BBBB“ End If End Sub 程序运行后，为了在窗体上输出 “BBBB”，应执行的操作为_ 。（分数：2.00）A.同时按下 Shift 键和鼠标左键B.同时 Ctrl、Alt 键和鼠标左键C.同时按下 Shift 键和鼠标右键D.同时按下 Ctrl、Alt 键和鼠标左键4.以下说法中正确的是_ 。（分数：2.00）A.当 MousePointer 属性为 1 时，将把鼠标的形状设置为 Windows 的默认值B.MouseIc
3、on 属性的设置要受到 KeyDown 事件的影响C.自定义鼠标光标通过 MouseIcon 属性设置D.为了定义用户自己的鼠标光标，必须把 MousePointer 属性设置为 995.拖放要触发两个事件，这两个事件是_ 。（分数：2.00）A.Dragover 事件和 DragDrop 事件B.Drag 事件和 DragDrop 事件C.MouseDown 事件和 KeyDown 事件D.MouseUp 事件和 KeyUp 事件6.下列与改变鼠标光标形状有关的是_ 。（分数：2.00）A.MouseMove 事件B.MouseDown 事件C.MousePointer 属性D.MouseU
4、p 事件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 程序运行后，如果在文
5、本框中输入字母 a(即直接按 a 键)，然后单击窗体，则在窗体上显示的内容是_ 。（分数：2.00）A.Visual BasicB.程序设计C.Visual Basic 程序设计D.A 程序设计8.以下叙述中错误的是_ 。（分数：2.00）A.在 KeyUp 和 KeyDown 事件过程中，从键盘上输入的 A 和 a 被视作相同的字母(具有相同的 KeyCodB.在 KeyUp 和 KeyDown 事件过程中，将键盘上的 1 和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCodC.KeyPress 事件中不能识别键盘上键的按下与释放D.KeyPress 不能识别回车键9.在窗体上画一个
6、名为 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 +
7、Chr(KeyAscii) End Sub 程序运行后，在键盘上输入 ABCDEFG，单击命令按钮，则文本框中显示的内容为 _ 。（分数：2.00）A.abodefgB.不显示任何信息C.ABCDEFGD.出错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 In
8、teger, _ Shift As Integer, X As Single, Y As Single) Print “BBBB“ End Sub 程序运行后，如果在窗体上单击鼠标右键，则输出结果为_ 。（分数：2.00）A.AAAA BBBBB.BBBBC.AAAAD.BBBB AAAA11.在窗体上画一个名称为 Text1 的文本框，要求文本框只能接收大写字母的输入。以下能够正确实现该操作的事件过程是_ 。（分数：2.00）A.Private Sub Text1_ KeyPress (KeyAscii As Intege IfKeyAscii 65 Or KeyAscii 9t Then
9、MsgBox “请输入大写字母” End If End subB.Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Intege IfKeyCode 65 Or KeyCode 91 Then MsgBox “请输入大写字母” End If End subC.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
10、 MsgBox “请输入大写字母” End If End subD.Private Sub Text1_ Change() IfAsc(Text 1.Tex 65 Or Asc(Text1. Tex 91 Then MsgBox “请输入大写字母” End If End sub12.假定编写了如下事件过程： 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 程序运
11、行后，为了在窗体上输出 AAAA，应按下的鼠标键为_ 。（分数：2.00）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 程序运行后，
12、在文本框中输入 abcde，则在窗体上显示的内容是_ 。（分数：2.00）A.abcdeB.efghiC.EFGHID.ABCDE14.以下叙述中正确的是_ 。（分数：2.00）A.KeyAscii 参数返回所按键的 ASCII 码B.KeyAscii 参数的数据类型为字符串C.KeyAscii 参数与 KeyCode 参数的返回值相同D.在 KeyPress 事件过程中，KeyAscii 参数可以省略15.在窗体上画一个名称为 Text1 的文本框，然后编写如下事件过程： Private Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As
13、String ch = Chr (KeyAscii) KeyAscii = Asc (UCase(ch) Text1. Text = String(1, KeyAscii) End Sub 程序运行后，使文本框拥有焦点，然后按键盘上的 B 键，则在文本框中显示的内容是 _ 。（分数：2.00）A.bB.bbC.BBD.B16.编写如下事件过程： Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Shift = 6 And Button = 2 Then
14、 Print “BBBB“ End If End Sub 程序运行后，为了在窗体上输出 BBBB，应执行的操作为_ 。（分数：2.00）A.同时按下 Shift 键和鼠标左键B.同时按下 Ctrl、Alt 键和鼠标右键C.同时按下 Shift 键和鼠标右键D.同时按下 Ctrl、Alt 键和鼠标左键17.在 KeyUp 事件过程中，通过 KeyCode 参数判断用户的按键。假定键“B”的 KeyCode 值为 66，则以下正确的说法是_ 。（分数：2.00）A.按 Shift+ B 键后的 KeyCode 值为 66+1B.按 Shift+ B、Ctrl+ B、Alt+ B 键后的 KeyCo
15、de 值均为 66C.按 Ctrl+ B 键后的 KeyCode 值为 66+2D.按 Alt+ B 键后的 KeyCode 值为 66+4二、B填空题/B(总题数：5，分数：10.00)18.对窗体编写如下两个事件过程： 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 程序运行后，如果直接按键盘上的 a
16、 键(即不按住 shift 键)，则在窗体上输出的字符分别为_ 和_ 。（分数：2.00）填空项 1:_19.编写如下代码： Dim Flag As Boolean Private Sub Form MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Flag = True End Sub Private Sub Form MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single) Flag = False En
17、d Sub Private Sub Form_ MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) If Flag = False Then Print “DDDD“ End If End Sub 程序运行后，如果想在窗体上输出 DDDD，则应执行的操作为_ 。（分数：2.00）填空项 1:_20.假定编写了如下事件过程： Private Sub Form MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) I
18、f (Button And 3) = 3 Print “AAAA“ End If End Sub 程序运行后，为了在窗体上输出 AAAA，应执行的操作是_ 。（分数：2.00）填空项 1:_21.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下事件过程： Private Sub Form_ Lead() Show Text1.Text = “ “ Text2.Text = “ “ Text2.SetFocus End Sub Private Sub Text2_ KeyDown (KeyCode As Integer, Shift As Integer) Text1
19、.Text = Text1.Text + Chr (KeyCode - 4) End Sub 程序运行后，如果在 Text2 文本框中输入 efghi，则 Text1 文本框中的内容是_。（分数：2.00）填空项 1:_22.阅读程序； Option Base 1 Private Sub Form_ KeyPress (KeyAscii As Integer) art = Array(268, 542, 693, 365, 489, 147, 852) a1 = arr(1) a2 = 1 If KeyAscii = 13 Then For a = 2 To 6 If arr(i) a1 Th
20、en a1 = arr(i) a2 = i End If Next i End If Print a1; a2 End Sub 程序运行后，按回车键；输出结果是_。（分数：2.00）填空项 1:_键盘与鼠标事件过程答案解析(总分：44.00，做题时间：90 分钟)一、B选择题/B(总题数：17，分数：34.00)1.以下叙述中错误的是_ 。（分数：2.00）A.双击鼠标可以触发 DblClick 事件B.事件的名称可以由编程人员确定 C.移动鼠标时，会触发 MoussMove 事件D.控件的名称可以由编程人员设定解析：2.下列与拖放操作无关的是_ 。（分数：2.00）A.KeyPress 事件
21、 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”，应执行的操作为_ 。（分数：2.00）A.同时按下 Shift 键和鼠标左键B.同时 Ctrl、Alt 键和鼠标左键 C.同时按下 Shift 键和
22、鼠标右键D.同时按下 Ctrl、Alt 键和鼠标左键解析：4.以下说法中正确的是_ 。（分数：2.00）A.当 MousePointer 属性为 1 时，将把鼠标的形状设置为 Windows 的默认值B.MouseIcon 属性的设置要受到 KeyDown 事件的影响C.自定义鼠标光标通过 MouseIcon 属性设置D.为了定义用户自己的鼠标光标，必须把 MousePointer 属性设置为 99 解析：5.拖放要触发两个事件，这两个事件是_ 。（分数：2.00）A.Dragover 事件和 DragDrop 事件 B.Drag 事件和 DragDrop 事件C.MouseDown 事件和
23、KeyDown 事件D.MouseUp 事件和 KeyUp 事件解析：6.下列与改变鼠标光标形状有关的是_ 。（分数：2.00）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
24、 “程序设计” End Sub Private Sub Text1_ KeyDown (KeyCode As Integer, Shift As Integer) Print “Visual Basic“ End Sub 程序运行后，如果在文本框中输入字母 a(即直接按 a 键)，然后单击窗体，则在窗体上显示的内容是_ 。（分数：2.00）A.Visual BasicB.程序设计C.Visual Basic 程序设计 D.A 程序设计解析：8.以下叙述中错误的是_ 。（分数：2.00）A.在 KeyUp 和 KeyDown 事件过程中，从键盘上输入的 A 和 a 被视作相同的字母(具有相同的
25、KeyCodB.在 KeyUp 和 KeyDown 事件过程中，将键盘上的 1 和右侧小键盘上的“1”视作不同的数字(具有不同的KeyCodC.KeyPress 事件中不能识别键盘上键的按下与释放D.KeyPress 不能识别回车键 解析：9.在窗体上画一个名为 Command1 的命令按钮和一个名为 Text1 的文本框，并把窗体的 KeyPreview 属性设置为 True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load () Show Text1.Text = “ “ Text1. SetFocus End Sub Priva
26、te Sub Command1 Click() Text1. Text= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub 程序运行后，在键盘上输入 ABCDEFG，单击命令按钮，则文本框中显示的内容为 _ 。（分数：2.00）A.abodefgB.不显示任何信息 C.ABCDEFGD.出错解析：10.编写如下事件过程： Private Sub FOrm_ MouseDown (Button As Integer, S
27、hift 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 程序运行后，如果在窗体上单击鼠标右键，则输出结果为_ 。（分数：2.00）A.AAAA BBBB B.BBBBC.AAAAD.BBBB AAAA解析：11.在窗体上画一个名称为 Text
28、1 的文本框，要求文本框只能接收大写字母的输入。以下能够正确实现该操作的事件过程是_ 。（分数：2.00）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 subC.
29、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 subD.Private Sub Text1_ Change() IfAsc(Text 1.Tex 65 Or Asc(Text1. Tex 91 Then MsgBox “请输入大写字母” End If End sub解析：12.假定编写了如下事件过程： Priv
30、ate 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，应按下的鼠标键为_ 。（分数：2.00）A.左B.右 C.同时按下左、右D.按什么键都不显示解析：13.窗体上画一个名称为 Text1 的文本框，然后编写如下事件过程： Private Sub Form Load() Show Text1. SetFocus End Sub Priv
31、ate Sub Text1_ KeyPress (KeyAscii As Integer) Dim ch As String ch = Chr (KeyAscii) KeyAscii = Asc(UCase(ch) Pint Chr(KeyAscii + 4) End Sub 程序运行后，在文本框中输入 abcde，则在窗体上显示的内容是_ 。（分数：2.00）A.abcdeB.efghiC.EFGHI D.ABCDE解析：14.以下叙述中正确的是_ 。（分数：2.00）A.KeyAscii 参数返回所按键的 ASCII 码 B.KeyAscii 参数的数据类型为字符串C.KeyAscii 参
32、数与 KeyCode 参数的返回值相同D.在 KeyPress 事件过程中，KeyAscii 参数可以省略解析：15.在窗体上画一个名称为 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 键，则在文本框中显示的内容是 _ 。（分数：2.00）
33、A.bB.bbC.BB D.B解析：16.编写如下事件过程： 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，应执行的操作为_ 。（分数：2.00）A.同时按下 Shift 键和鼠标左键B.同时按下 Ctrl、Alt 键和鼠标右键 C.同时按下 Shift 键和鼠标右键D.同时按下 Ctrl、Al
34、t 键和鼠标左键解析：17.在 KeyUp 事件过程中，通过 KeyCode 参数判断用户的按键。假定键“B”的 KeyCode 值为 66，则以下正确的说法是_ 。（分数：2.00）A.按 Shift+ B 键后的 KeyCode 值为 66+1B.按 Shift+ B、Ctrl+ B、Alt+ B 键后的 KeyCode 值均为 66 C.按 Ctrl+ B 键后的 KeyCode 值为 66+2D.按 Alt+ B 键后的 KeyCode 值为 66+4解析：二、B填空题/B(总题数：5，分数：10.00)18.对窗体编写如下两个事件过程： Private Sub Form_ KeyDo
35、wn (KeyCode As Integer, Shift As Integer) Print Chr (KeyCode) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) Print Chr (KeyAscii) End Sub 程序运行后，如果直接按键盘上的 a 键(即不按住 shift 键)，则在窗体上输出的字符分别为_ 和_ 。（分数：2.00）填空项 1:_ （正确答案：A a）解析：19.编写如下代码： Dim Flag As Boolean Private Sub Form MouseDown (Button As
36、Integer, Shift As Integer, X As Single, Y As Single) Flag = True End Sub Private Sub Form MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single) Flag = False End Sub Private Sub Form_ MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single) If Flag = False Then Prin
37、t “DDDD“ End If End Sub 程序运行后，如果想在窗体上输出 DDDD，则应执行的操作为_ 。（分数：2.00）填空项 1:_ （正确答案：按下鼠标左键或右键同时松开）解析：20.假定编写了如下事件过程： Private Sub Form MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If (Button And 3) = 3 Print “AAAA“ End If End Sub 程序运行后，为了在窗体上输出 AAAA，应执行的操作是_ 。（分数：2.00）填空项 1:_ （
38、正确答案：把鼠标光标移到窗体上，然后同时按住鼠标左键、右键，并移动鼠标）解析：21.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下事件过程： Private Sub Form_ Lead() Show Text1.Text = “ “ Text2.Text = “ “ Text2.SetFocus End Sub Private Sub Text2_ KeyDown (KeyCode As Integer, Shift As Integer) Text1.Text = Text1.Text + Chr (KeyCode - 4) End Sub 程序运行后，如果在
39、 Text2 文本框中输入 efghi，则 Text1 文本框中的内容是_。（分数：2.00）填空项 1:_ （正确答案：ABCDE）解析：22.阅读程序； Option Base 1 Private Sub Form_ KeyPress (KeyAscii As Integer) art = Array(268, 542, 693, 365, 489, 147, 852) a1 = arr(1) a2 = 1 If KeyAscii = 13 Then For a = 2 To 6 If arr(i) a1 Then a1 = arr(i) a2 = i End If Next i End If Print a1; a2 End Sub 程序运行后，按回车键；输出结果是_。（分数：2.00）填空项 1:_ （正确答案：693 3）解析：
