vb练习题,电子版 第10章 键盘与鼠标事件过程

第十章键盘与鼠标事件过程

教学要求：

掌握键盘事件KeyPress、KeyDown、KeyUp的基本方法；掌握鼠标事件MouseDown、MouseUp、MouseMove的基本方法；能利用键盘事件、鼠标事件进行程序设计。

知识点：

各键盘事件的使用方法；各鼠标事件的使用方法。

内容导航：

一、键盘事件

（一）KeyPress事件

该事件在单击键盘时发生。它可获得按键的KeyAscii码，并不是单击任意一个键都会发生KeyPress事件，该事件只对会产生ASCII码的键有反应。

在窗体上画一个控件（指上面所讲的可以发生KeyPress事件的控件），双击该控件，进入程序代码窗口后，从“过程”框中选取KeyPress，即可以定义KeyPress事件过程。一般格式为：Private Sub Command1_KeyPress(KeyAscii As Integer)

… …

End Sub

（二）KeyDown事件和KeyUp事件

当用户按下键盘上的任意一个键，便触发该对象的KeyDown事件，释放按键则触发KeyUp 事件。由于按下键盘的键往往会立即放开，所以这两个事件的使用差别并不大。KeyDown事件和KeyUp事件的参数有两种形式，其中Index As Integer只用于控件组，而KeyCode As Integer, Shift As Integer用于单个控件。

二、鼠标事件

鼠标事件是由用户操作鼠标而引发的事件。

（一）Click事件

用户单击鼠标键时发生，格式如下：

Private Sub控件名_Click ( [ index As Integer ] )

其中Index用于当控件是控件数组时传递的参数。

（二）DbClick事件

用户双击鼠标键时发生，格式如下：

Private Sub控件名_DbClick ( [ index As Integer ] )

（三）MouseDown事件

用户按下鼠标上的任一按钮时，就会引发该事件。如窗体控件Form的MouseDown事件调用格式为：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

其中各参数的含义如下：

1．Button参数是用来指示鼠标按钮的状态。参数值含义如下：

1——左按钮按下；

2——右按钮按下；

4——中间按钮按下。

2．Shift参数用来指示Shift、Ctrl和Alt三个键的状态。参数值含义如下：

1——Shift按下；

2——Ctrl按下；

4——Alt按下。

3．参数X和Y指示鼠标在对象上按下时的位置。

（四）MouseUp事件

用户释放鼠标时发生。如窗体控件Form的MouseUp事件调用格式：

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

（五）MouseMove事件

用户移动鼠标时发生。如窗体控件Form的MouseMove事件调用格式：

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

训练：

一、选择题：

1．当用户按键时，KeyPress事件、KeyDown事件、KeyUp事件的执行顺序为________。

A)KeyPress事件、KeyDown事件、KeyUp事件

B)KeyDown事件、KeyPress事件、KeyUp事件

C)KeyDown事件、KeyUp事件、KeyPress事件

D)KeyDown事件、KeyUp事件与KeyPress事件

2．在窗体上画出一个命令按钮、文本框Text1、Text2，同时将窗体的KeyPressview属性设置为True，编程代码如下。当从键盘输入vbasic，则Text1、Text2分别显示为________。Option Explicit

Dim s1 As String, s2 As String

Private Sub Command1_Click()

Text1.Text = s1

Text2.Text = s2

s1 = ""

s2 = ""

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

s1 = s1 & Chr(KeyAscii)

End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

s2 = s2 & Chr(KeyCode)

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Text1.Enabled = False

Text2.Enabled = False

End Sub

A)出错B)不显示任何信息C)vbasic、VBASIC D)vbasic、vbasic

3．编写程序代码如下：

当程序运行后，为了在窗体上输出“V isual Basic”，应在窗体上执行以下操作：________。Option Explicit

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Shift = 3 And Button = 2 Then

Print "Visual Basic"

End If

End Sub

A)同时按下Ctrl+Shift和鼠标右键

B)同时按下Shift和鼠标右键

C)同时按下Ctrl+Shift和鼠标左键

D)同时按下Shift和鼠标左键

4．下面选项与鼠标拖放操作无关的是________。

A)Drag方法B)DragOver事件C)DragDrop事件D)KeyPress事件

5．下列关于MouseMove事件的发生描述正确的是________。

A)与鼠标的灵敏度有关

B)每秒激发一次

C)伴随鼠标的移动而连续不断的发生

D)当鼠标移动时被激活一次然后等待下次移动

6．在窗体中添加一个文本框，然后编写代码如下：

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim char As String

char = Chr(KeyAscii)

KeyAscii = Asc(UCase(char))

Text1.Text = String(3, KeyAscii)

End Sub

程序运行后，如果在键盘上输入字母“a”，则文本框中显示内容为________。

A)a B)A C)aaaa D)AAAA

7．在窗体上，按下鼠标键触发事件，正确的程序段是________。

A)Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)……

End Sub

B)Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) ……

End Sub

C)Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)……

End Sub

D)Private Sub Form_Load()

……

End Sub

8．以下叙述中错误的是________。

A)在KeyUp和KeyDown事件过程中，从键盘上输入“A”或“a”被视作相同的字母（即具有相同的KeyCode）

B)在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”被视作不同的数字（即具有不同的KeyCode）

C)KeyPress事件中不能识别键盘上某个键的按下与释放

D)KeyPress事件中可以识别键盘上某个键的按下与释放

9．程序运行后，在窗体上单击鼠标，此时窗体不会接受到的事件是________。

A)MouseDown B)MOuseUp C)Load D)Click

10．窗体的MouseDown事件过程Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)有四个参数，关于这些参数，正确的描述是________。

A)通过Button参数判定当前按下的是哪一个鼠标键

B)Shift参数只能用来确定是否按下Shift键

C)Shift参数只能用来确定是否按下Alt和Ctrl键

D)参数X，Y用来设置鼠标当前位置的坐标

11．在窗体上画一个名为Text1的文本框，并编写如下程序：

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)Visual Basic B)程序设计C)A程序设计D)V isual Basic 程序设计

12．在窗体上画一个名为Txta的文本框，然后编写如下的事件过程：

Private Sub Txta_KeyPress(KeyAscii As Integer)

End Sub

若焦点位于文本框中，则能够出发KeyPress事件的操作是________。

A)单击鼠标B)双击文本框C)鼠标滑过文本框D)按下键盘上的某个键

13．与键盘操作有关的事件有KeyPress、KeyUp和KeyDown事件，当用户按下并释放一个键后，这三个事件发生的顺序是________。

A)KeyDown、KeyPress、KeyUp

B)KeyDown、KeyUp、KeyPress

C)KeyPress、KeyDown、KeyUp

D)没有规律

14．对窗体编写如下事件过程：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

Print "AAAAA"

End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Print "BBBBB"

End Sub

程序运行后，如果单击鼠标右键，则输出结果为________。

A)AAAAA B)BBBBB C)AAAAA D)BBBBB

BBBBB AAAAA

15．以下不属于键盘事件的是________。

A)KeyDown B)KeyUp C)Unload D)KeyPress

16．以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是________。

A)KeyAscii参数是所按键的ASCII码

B)KeyAscii参数的数据类型为字符串

C)KeyAscii参数可以省略

D)KeyAscii参数是所按键上标注的字符

17．以下说法正确的是________。

A)KeyDown事件在KeyPress事件前发生

B)KeyPress过程等不可以使用Call语句来调用

C)MouseUp事件在Click事件之后发生

D)控件响应Click事件后不再响应MouseUp事件

18．如果按下组合键Ctrl-A，则Shift参数的值是________。

A)0 B)1 C)2 D)49

二、填空题：

1．对窗体编写代码如下：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

Print "11111"

End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Print "22222"

End Sub

当单击鼠标左键时，窗体上会显示________；当单击鼠标右键时，窗体上会显示________。2．新建一窗体，编写程序代码如下：

Option Explicit

Private Sub Form_KeyPress(KeyAscii As Integer)

Dim i As Integer, j As Integer, D() As Integer

j = 0

If KeyAscii = 13 Then

For i = 1 To 3

j = j + i

Next i

Else

For i = 4 To 5

j = j + i

Next i

Print j

End Sub

运行上述程序，当输入回车键时，窗体上回打印：________；输入其他键时，窗体上会打印：________。

3．在窗体上编写程序如下：

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

Print Chr(KeyCode - 1)

End Sub

当程序运行后，从键盘上输入“VB”后，则在窗体上显示________；从键盘上输入“vb”后，则在窗体上显示________。

4．鼠标的光标在不同的窗口内，其形状是不一样的，光标的形状通过________属性来设置。5．在执行KeyPress事件过程时，KeyAscii是所按键的________值。对于有上档字符和下档字符的键，当执行KeyDown事件过程时，KeyCode是________字符的________。

6．在KeyDown、KeyUp事件过程中，当参数shift的值为十进制数1、2、4时，分别代表shift、________、________键。

7．把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程：

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”键盘（即不按住Shift键），则在窗体上输出的字符分别是________和________。

8．窗体上________的控件时才能接收该KeyPress事件。

9．要使鼠标指向一个Enable属性为True的Command控件时形状为“十字线”，应设置鼠标的________的属性值为________。

三、程序阅读题：

1．编写如下两个事件过程：

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键，则程序的输出结果是什么？

2．在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码：

Dim saveall As String

Private Sub Command1_Click()

Text1.Text = UCase(saveall)

Private Sub Form_KeyPress(KeyAscii As Integer)

saveall = saveall + Chr(KeyAscii)

End Sub

Private Sub Form_Load()

Text1.Text = ""

End Sub

程序运行后，在键盘上输入abcdefg，单击命令按钮，写出文本框上显示的内容。

四、程序填空题：

1．下列过程的功能是：在对多个文本框进行输入时，对第一个文本框（Text1）输入完毕后用回车键使焦点跳到第二个文本框（Text2），而不是Tab键来切换。请完成该程序。Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

If 【1 】Then

Text2. 【2 】

End If

End Sub

2．在窗体上画一个名称为Combo1的组合框，画两个名称分别为Label1和Label2及Caption 属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项目后按回车键（ASCII码为13）时，如果输入的项在组合框的列表中不存在，则自动添加到组合框列表中，并在Label2中给出提示“已成功添加输入项”，如图所示；如果存在则在Label2中给出提示“输入项已在组合框中”。

Private Sub Combo1【1 】(KeyAscii As Integer)

If KeyAscii = 13 Then

For i = 0 To Combo1.ListCount - 1

If Combo1.Text =【2 】Then

Label2.Caption = "输入项已在组合框中"

Exit Sub

End If

Next i

Label2.Caption = "已成功添加输入项"

Combo1. 【3 】Combo1.Text

End If

End Sub

五、编程题：

1．窗体有3个文本框Text1、Text2、Text3和2个命令按钮，两个按钮分别用于计算和退出，Text1和Text2用于从键盘接收两个数，比较两个数的大小，Text3显示大的数。

(1)编写Text1和Text2的KeyPress事件代码，当键盘输入的键不是数字键时，文本框接收不到键值。单击“比较”按钮下，鼠标指针的形状为砂漏形状，3s后恢复系统默认。

(2)Text3为禁止输入，当鼠标移动到Text3控件上时，鼠标指针显示为禁止形状。

2．编写一个程序，当同时按下Alt键，Shift键和F6键时，在窗体上显示“结束！”，并终止程序的运行。

3．在窗体上画一个文本框、一个图片框和一个命令按钮。编写程序，使得当鼠标光标位于

不同的控件或窗体上时，鼠标光标具有不同的形状，此时如果按下鼠标右按钮，则显示相应的信息。例如，当鼠标光标移到图片框上时，如果按下鼠标右按钮，则用一个信息框显示：“现在鼠标光标位于图片框中”。要求：在文本框和窗体上的鼠标光标使用系统提供的光标形状，而图片框和命令按钮上的鼠标光标使用自定义的形状。