1、国家二级 VB 机试（键盘与鼠标事件过程）模拟试卷 5 及答案解析(总分：52.00，做题时间：90 分钟)一、选择题(总题数：26，分数：52.00)1.以下关于键盘事件的叙述中，错误的是（分数：2.00）A.按下键盘按键既能触发 KeyPress 事件，也能触发 KeyDown 事件B.KeyDown、KeyUp 事件过程中，大、小写字母被视作相同的字符C.KeyDown、KeyUp 事件能够识别 Shift、Alt、Ctrl 等键D.KeyCode 是 KevPress 事件的参数2.以下可以判断是否在文本框(名称为 Text1)内按下了回车键的事件过程是（分数：2.00）A.Text1
2、_ChangeB.Text1_ClickC.Text1_KeyPressD.Text1_GotFocus3.以下说法中正确的是（分数：2.00）A.当焦点在某个控件上时，按下一个字母键，就会执行该控件的 KeyPress 事件过程B.因为窗体不接受焦点，所以窗体不存在自己的 KeyPress 事件过程C.若按下的键相同，KeyPress 事件过程中的 KeyAscii 参数与 KeyDown 事件过程中的 KeyCode 参数的值也相同D.在 KeyPress 事件过程中，KeyAscii 参数可以省略4.向文本框中输入字符时，下面能够被触发的事件是（分数：2.00）A.GotFocusB.K
3、eyPressC.ClickD.MouseDown5.关于 KeyPress 事件，以下叙述中正确的是（分数：2.00）A.在控件数组的控件上按键盘键，不能触发 KeyPress 事件B.按下键盘上任一个键时，都能触发 KeyPress 事件C.按字母键时，拥有焦点的控件的 KeyPress 事件会被触发D.窗体没有 KeyPress 事件6.下列事件的事件过程中，参数是输入字符 ASCII 码的是（分数：2.00）A.KeyDown 事件B.KeyUp 事件C.KeyPress 事件D.Change 事件7.文本框 Text1 的 KeyDown 事件过程如下：Private Sub Tex
4、t1_KeyDown(KeyCode As Integer,Shift As Integer)End Sub 其中参数 KeyCode 的值表示的是发生此事件时（分数：2.00）A.是否按下了 Alt 键或 Ctrl 键B.按下的是哪个数字键C.所按的键盘键的键码D.按下的是哪个鼠标键8.VB 中有 3 个键盘事件：KeyPress、KeyDown、KeyUp，若光标在 Text1 文本框中，则每输入一个字母（分数：2.00）A.这 3 个事件都会触发B.只触发 KeyPress 事件C.只触发 KeyPress、 KeyUp 事件D.不触发其中任何一个事件9.在窗体上画一个命令按钮和一个文本
5、框(名称分别为 Command1 和 Text)，并把窗体的 KevPreview 属性设置为 True，然后编写如下代码：Dim SaveAll As String Private Sub Form_KeyPress(KeyAscii_Private SUb Form_Load() As Integer)Text1Text=“：Text1SetFocus SaveAll=SaveAll+Chr(KeyAscii)End SUb End SubPrivate Sub Commandl_Click() Text1Text=LCase(SaveAll)+SavAllEnd Sub 程序运行后，直接
6、用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为（分数：2.00）A.vbVBB.不显示任何信息C.VBD.出错10.窗体上有一个 Text1 文本框，并编写了下面事件过程：Private SUb Text1_KeyPress(KeyAscii As Integer) KeyAscii=KeyAscii+3End SUb 程序运行时，在文本框中输入字符“A”，则在文本框中实际显示的是（分数：2.00）A.AB.BC.CD.D11.对于文本框 Text1，能够获得按键的 ASCII 码值的事件过程是（分数：2.00）A.Text1 KeyUpB.Text1 KeyPressC.Text1
7、 ClickD.Text1 Change12.将窗体的 KeyPreview 属性设为 True，然后编写如下程序：Private SUb Form_KeyDown(KeyCode_ Private SUb Form_KeyPress(KeyAscii As Integer,Shift As Integer) As Integer) Print Chr(KeyCode) Print Chr(KeyAscii)End Sub End Sub 运行程序时，按下字母键 a，则窗体上显示的是（分数：2.00）A.A AB.A aC.a AD.a a13.在窗体上画 1 名为 Command1 的命令按
8、钮和 1 名 Text1 的文本框，再编写如下程序：Dim ss As String Private Sub Commandl_Click()Private Sub Text1_KeyPress(KeyAscii_ Dim m As String，i As Integer As Integer) For i=Len(ss)To 1 Step-1 If Chr(KeyAscii)“Then m=m+Mid(ss，i，1) ss=ss+Chr(KeyAscii) NextEnd Sub Text 1Text=UCase(m) End Sub 程序运行后，在文本框中输入“Number 100”，并单
9、击命令按钮，则文本框中显示的是（分数：2.00）A.NUMBER 100B.REBMUNC.REBMUN 100D.001 REBMUN14.窗体上有 1 个名称为 Text1、内容为空的文本框。编写如下事件过程：Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer) Print Text1Text；End Sub 运行程序，并在文本框中输入“123 ”，则在窗体上的输出结果为（分数：2.00）A.123B.112C.12123D.11212315.设窗体上有 2 个文本框 Text1 和 Text2，并有下面的事件过程：Dim
10、 nPrivate Sub Text1_KeyPress(KeyAscii As Integer) If“A“=Chr(KeyAscii)And Chr(KeyAscii)=“Z“Then n=n+1 End If If KeyAscii：1 3 Then Text2Text=nEnd Sub 程序运行时，在文本框 Textl 中输入“Visual Basic 60”并按回车键后，在文本框 Text2 中显不的是（分数：2.00）A.2B.9C.13D.1616.若看到程序中有以下事件过程，则可以肯定的是，当程序运行时 Private Sub Click_MouseDown(Button As
11、 Integer,_Shift As Integer,X As Single，Y As Single) Print“VB Program“End Sub（分数：2.00）A.用鼠标左键单击名称为“Commandl”的命令按钮时，执行此过程B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程C.用鼠标右键单击名称为“MouseDown”的控件时，执行此过程D.用鼠标左键或右键单击名称为“Click”的控件时，执行此过程17.设有窗体的 Form MouseMove 事件过程如下：Private Sub Form_MouseMove(Button As Integer,Shift
12、 As Integer,X As Single,Y As Single) If(Button And 3)=3 Then Print“检查按键“ End If End Sub关于上述过程，以下叙述中正确的是（分数：2.00）A.按下鼠标左键时，在窗体上显示“检查按键”B.按下鼠标右键时，在窗体上显示“检查按键”C.同时按下鼠标左、右键时，在窗体上显示“检查按键”D.不论做何种操作，窗体上都不会显示18.要求当鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是（分数：2.00）A.Private Sub P1_MouseMove(Button As
13、 Integer，Shift As Integer，X As Single，Y As Single) Print X，Y End SubB.Private Sub P1_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) PicturePrint X，Y End SubC.Private Sub P1_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) P1Print X，Y End SubD.Private Sub F
14、orm_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) P1Print X，Y End Sub19.窗体的 MouseUp 事件过程如下：Private Sub Form_MouseUp(Button As Integer,Shift As Integer，X As Single，Y As Single)End Sub 关于以上定义，以下叙述中错误的是（分数：2.00）A.根据 Shift 参数，能够确定使用转换键的情况B.根据 X、Y 参数可以确定触发此事件时鼠标的位置C.BuRon 参数的值是在 M
15、ouseUp 事件发生时，系统自动产生的D.MouseUp 是鼠标向上移动时触发的事件20.命令按钮 Commandl 的 MouseUp 事件过程结构如下：Private Sub Commandl_MouseUp(Button As Integer,Shift As Intege，X As Single，Y As Single)End SUb 则以下叙述中错误的是（分数：2.00）A.X、Y 参数表示的是 Commandl 左上角在窗体中的位置B.Button 参数用于确定按下的鼠标键C.Shift 参数用于确定是否按下了 Alt、Ctrl 或 Shift 键D.MouseUp 表示抬起鼠标
16、按键时触发的事件21.有下面事件过程：Private Sub Form_MouseMove(Button As Intege，Shift As Integer，X As Single，Y As Single) If Button=2 Then Form1PSet(X，Y)PSet 方法可以在 X，Y 处画一个点 End IfEnd Sub 程序运行后，产生的效果是（分数：2.00）A.在窗体上每单击鼠标左键一次，就在鼠标位置处画一个点B.按着鼠标左键，移动鼠标，可在窗体上画出鼠标的运动轨迹C.按着鼠标右键，移动鼠标，可在窗体上画出鼠标的运动轨迹D.不按任何鼠标键，移动鼠标，可在窗体上画出鼠标的
17、运动轨迹22.窗体上已有 1 个名称为 Picture1 的图片框，要求实现下面 2 个功能之一：(1)在窗体上移动鼠标时，立即将 Picture1 显示在鼠标位置 (2)在窗体上单击鼠标时，立即将 Picture1 显示在鼠标位置下面不能实现上述任何功能的事件过程是（分数：2.00）A.Private Sub Form_MouseDown(BuRon As Integer，Shift As Integer，X As Single，Y As Single) Picture1Move X，Y End SubB.Private Sub Form_MouseUp(Button As Integer，
18、Shift As Integer，X As Single，Y As Single) Picture1Move X，Y End SubC.Private Sub FormMouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Picture1CurrentX=X：Picture1CurrentY=Y End SUbD.Private Sub Form_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) Picture1Move
19、 X，Y End Sub23.编写如下程序：Private Sub Form_Click() Print“Welcome!“End SubPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) Print“欢迎!“ End Sub Private Sub Form_MouseUp(Button As Imeger，Shift As Integer,X As Single,Y As Single) Print“热烈欢迎!“ End Sub 程序运行后，单击窗体，输出结果为（分数：
20、2.00）A.欢迎!热烈欢迎!Welcome!B.欢迎!Welcome!热烈欢迎!C.Welcome!欢迎!热烈欢迎!D.Welcome!热烈欢迎!欢迎!24.下列操作说明中，错误的是（分数：2.00）A.在具有焦点的对象上进行一次按下字母键操作，会引发 KeyPress 事件B.可以通过 MousePointer 属性设置鼠标光标的形状C.不可以在属性窗口设置 MousePointer 属性D.可以在程序代码中设置 MousePointer 属性25.窗体上有 1 个名称为 Text1 的文本框，1 个名称为 Label1 的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的
21、内容。以下可以实现上述操作的事件过程为（分数：2.00）A.Private SUb Label1_Click() Label1Caption=Text1Text End SubB.Private Sub Label1 Change() Label1Caption=Text1Text End SubC.Private Sub Text1_Click() Label1Caption=Text1：Text End SubD.Private Sub Text1_Change() Label1Caption=Text1Text End Sub26.鼠标拖放控件要触发两个事件，这两个事件是（分数：2.00
22、）A.DragOver 事件和 DragDrop 事件B.Drag 事件和 DragDrop 事件C.MouseDown 事件和 KeyDown 事件D.MouseUp 事件和 KeyUp 事件国家二级 VB 机试（键盘与鼠标事件过程）模拟试卷 5 答案解析(总分：52.00，做题时间：90 分钟)一、选择题(总题数：26，分数：52.00)1.以下关于键盘事件的叙述中，错误的是（分数：2.00）A.按下键盘按键既能触发 KeyPress 事件，也能触发 KeyDown 事件B.KeyDown、KeyUp 事件过程中，大、小写字母被视作相同的字符C.KeyDown、KeyUp 事件能够识别 S
23、hift、Alt、Ctrl 等键D.KeyCode 是 KevPress 事件的参数 解析：解析：当用户按下并释放一个可打印的键盘字符时，KeyDown、KeyPress、KeyUp 事件将依次发生。KeyDown、KeyUp 事件过程有两个参数，其中 KeyCode 参数是表示所按键的位置信息的代码，同一字符大、小写状态下的 KeyCode 参数值相同。ShiR 参数代表按键时 Shift、Ctrl、Alt 键的状态。2.以下可以判断是否在文本框(名称为 Text1)内按下了回车键的事件过程是（分数：2.00）A.Text1_ChangeB.Text1_ClickC.Text1_KeyPre
24、ss D.Text1_GotFocus解析：解析：键盘事件过程，主要用于处理当按下或释放键盘上某个键时所执行的操作。当按下键盘上某个键时，将触发当前拥有焦点的对象的 KeyPress 事件。3.以下说法中正确的是（分数：2.00）A.当焦点在某个控件上时，按下一个字母键，就会执行该控件的 KeyPress 事件过程 B.因为窗体不接受焦点，所以窗体不存在自己的 KeyPress 事件过程C.若按下的键相同，KeyPress 事件过程中的 KeyAscii 参数与 KeyDown 事件过程中的 KeyCode 参数的值也相同D.在 KeyPress 事件过程中，KeyAscii 参数可以省略解析
25、：解析：本题考查的考点是有关键盘事件的。当控件具有焦点时，如果按下一个字母键，将会触发此控件的：KeyPress 事件；窗体也有自己的 KeyPress 事件，由控件的 KeyPreview 属性决定是否触发；KeyAscii 参数是所按键的 ASCII 的代码，将每个字符的大、小写形式作为不同的键代码解释，不可省略；KeyCode 参数是表示所按键的位置信息的代码(将 A 和 a 作为同一个键返回，而从大键盘上输出的“1”和右侧小键盘上输入的“1”将被视作不同的字符)。4.向文本框中输入字符时，下面能够被触发的事件是（分数：2.00）A.GotFocusB.KeyPress C.ClickD
26、.MouseDown解析：解析：KeyPress(KeyAscii As Integer)事件是在对象具有焦点时，按下键盘上的键时触发的事件，KeyPress(KeyAscii As Integer)事件中 KeyAscii 参数是所按键的 Ascii 代码。5.关于 KeyPress 事件，以下叙述中正确的是（分数：2.00）A.在控件数组的控件上按键盘键，不能触发 KeyPress 事件B.按下键盘上任一个键时，都能触发 KeyPress 事件C.按字母键时，拥有焦点的控件的 KeyPress 事件会被触发 D.窗体没有 KeyPress 事件解析：解析：当按下键盘上某个键时，将触发当前拥
27、有焦点的对象的 KeyPress 事件。如果按下的是功能键如 Alt、Shift 等则不能触发此事件。窗体也具有 KeyPress 事件，在控件数组的控件上按键盘键也能触发 KeyPress 事件。6.下列事件的事件过程中，参数是输入字符 ASCII 码的是（分数：2.00）A.KeyDown 事件B.KeyUp 事件C.KeyPress 事件 D.Change 事件解析：解析：当按下键盘上某个键时，将触发当前拥有焦点的对象的 KeyPress 事件。它的 KeyAscii 参数是所按键的 ASCII 码值，该参数传递一个字符，并且把字符的大、小写形式作为两种不同的字符。KeyDown 和 K
28、eyUp 事件的参数 KeyCode 是按下键盘键的键值。7.文本框 Text1 的 KeyDown 事件过程如下：Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)End Sub 其中参数 KeyCode 的值表示的是发生此事件时（分数：2.00）A.是否按下了 Alt 键或 Ctrl 键B.按下的是哪个数字键C.所按的键盘键的键码 D.按下的是哪个鼠标键解析：解析：本题考查的考点是有关键盘事件 KeyDown 的。KeyCode 参数是表示所按键的位置信息的代码。8.VB 中有 3 个键盘事件：KeyPress、Ke
29、yDown、KeyUp，若光标在 Text1 文本框中，则每输入一个字母（分数：2.00）A.这 3 个事件都会触发 B.只触发 KeyPress 事件C.只触发 KeyPress、 KeyUp 事件D.不触发其中任何一个事件解析：解析：当控件具有焦点时，如果按下一个字母键，将会依次触发此控件的 KeyDown、KeyUp 和KeyPress 事件。9.在窗体上画一个命令按钮和一个文本框(名称分别为 Command1 和 Text)，并把窗体的 KevPreview 属性设置为 True，然后编写如下代码：Dim SaveAll As String Private Sub Form_KeyPr
30、ess(KeyAscii_Private SUb Form_Load() As Integer)Text1Text=“：Text1SetFocus SaveAll=SaveAll+Chr(KeyAscii)End SUb End SubPrivate Sub Commandl_Click() Text1Text=LCase(SaveAll)+SavAllEnd Sub 程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为（分数：2.00）A.vbVB B.不显示任何信息C.VBD.出错解析：解析：本题考查的考点是有关键盘事件的。KeyPreview 属性用于设置是否在控件的
31、键盘事件之前激活窗体的键盘事件。KeyPress(KeyAscii As Integer)事件是在对象具有焦点时，按下键盘上的键时触发的事件，KeyAscii 参数是所按键的 ASCII 的代码，将每个字符的大、小写形式作为不同的键代码解释。本题中输入“VB”的时候触发了窗体的 KeyPress 事件，将全局变量 SaveAll 设置为了“VB”，所以单击命令按钮后，文本框中的值为“vbVB”。10.窗体上有一个 Text1 文本框，并编写了下面事件过程：Private SUb Text1_KeyPress(KeyAscii As Integer) KeyAscii=KeyAscii+3End
32、 SUb 程序运行时，在文本框中输入字符“A”，则在文本框中实际显示的是（分数：2.00）A.AB.BC.CD.D 解析：解析：KeyPress(KeyAscii As Integer)事件是在对象具有焦点时，按下键盘上的键时触发的事件，KeyAscii 参数是所按键的 Ascii 的代码，将每个字符的大、小写形式作为不同的键代码解释。本题中令参数 KeyAscii 自加 3，则为该字母后面第三个字母。11.对于文本框 Text1，能够获得按键的 ASCII 码值的事件过程是（分数：2.00）A.Text1 KeyUpB.Text1 KeyPress C.Text1 ClickD.Text1
33、Change解析：解析：KeyPress(KeyAscii As Integer)事件是在对象具有焦点时，按下键盘上的键时触发的事件，KeyAscii 参数是所按键的 Ascii 的代码，将每个字符的大、小写形式作为不同的键代码解释。12.将窗体的 KeyPreview 属性设为 True，然后编写如下程序：Private SUb Form_KeyDown(KeyCode_ Private SUb Form_KeyPress(KeyAscii As Integer,Shift As Integer) As Integer) Print Chr(KeyCode) Print Chr(KeyAsc
34、ii)End Sub End Sub 运行程序时，按下字母键 a，则窗体上显示的是（分数：2.00）A.A AB.A a C.a AD.a a解析：解析：KeyCode 参数是表示所按键的位置信息的代码，同一字符大、小写状态下的 KeyCode 参数值相同，都是大写字符的 ASCII 码值；KeyAscii 参数是所按键的 ASCII 码值，该参数传递一个字符，并且把字符的大、小写形式作为两种不同的字符。13.在窗体上画 1 名为 Command1 的命令按钮和 1 名 Text1 的文本框，再编写如下程序：Dim ss As String Private Sub Commandl_Click
35、()Private Sub Text1_KeyPress(KeyAscii_ Dim m As String，i As Integer As Integer) For i=Len(ss)To 1 Step-1 If Chr(KeyAscii)“Then m=m+Mid(ss，i，1) ss=ss+Chr(KeyAscii) NextEnd Sub Text 1Text=UCase(m) End Sub 程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的是（分数：2.00）A.NUMBER 100B.REBMUNC.REBMUN 100D.001 REBMUN
36、解析：解析：KeyPress(KeyAscii As Integer)事件是在对象具有焦点时，按下键盘上的键触发的，KeyPress(KeyAscii As Integer)事件中 KeyAscii 参数是所按键的 ASCII 代码，该参数不显示键盘的物理状态，而只是传递一个字符代码。KeyPress 将每个字符的大、小写形式作为不同的键代码解释，即作为两种不同的字符。Chr()可返回 ASCII 码对应的字符。本题程序运行后，在文本框中每输入一个字符，将执行 Text1 KeyPress 事件过程，变量 ss 的值也随即变化，当输入“Number100”后，变量ss=“Numberl00“。
37、单击命令按钮后，执一行 Commandl_Click 事件过程，将字符串“Number100”中的字符逆序排列并以大写形式显示在文本框中，即“001 REBMIJN”。14.窗体上有 1 个名称为 Text1、内容为空的文本框。编写如下事件过程：Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer) Print Text1Text；End Sub 运行程序，并在文本框中输入“123 ”，则在窗体上的输出结果为（分数：2.00）A.123B.112C.12123D.112123 解析：解析：当对象具有焦点时，释放键盘上某个按下的键
38、时将触发该对象的 KeyUp 事件，所以每在文本框中按键一次就会触发一次该事件，第一次输出 1，第二次输出 12，第三次输出 123。15.设窗体上有 2 个文本框 Text1 和 Text2，并有下面的事件过程：Dim nPrivate Sub Text1_KeyPress(KeyAscii As Integer) If“A“=Chr(KeyAscii)And Chr(KeyAscii)=“Z“Then n=n+1 End If If KeyAscii：1 3 Then Text2Text=nEnd Sub 程序运行时，在文本框 Textl 中输入“Visual Basic 60”并按回车键
39、后，在文本框 Text2 中显不的是（分数：2.00）A.2 B.9C.13D.16解析：解析：KeyPress(KeyAscii As Integer)事件是在对象具有焦点时，按下键盘上的键触发的，KeyPress(KeyAscii As Integer)事件中 KeyAscii 参数是所按键的 ASCII 代码，该参数不显示键盘的物理状态，而只是传递一个字符代码。KeyPress 将每个字符的大、小写形式作为不同的键代码解释，郾作为两种不同的字符。在本题中 n 的值是文本框中大写字母的个数。16.若看到程序中有以下事件过程，则可以肯定的是，当程序运行时 Private Sub Click_
40、MouseDown(Button As Integer,_Shift As Integer,X As Single，Y As Single) Print“VB Program“End Sub（分数：2.00）A.用鼠标左键单击名称为“Commandl”的命令按钮时，执行此过程B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程C.用鼠标右键单击名称为“MouseDown”的控件时，执行此过程D.用鼠标左键或右键单击名称为“Click”的控件时，执行此过程 解析：解析：鼠标按下事件(MouseDown)适用于窗体和大多数控件，包括复选框、命令按钮、单选按钮、框架、文本框、目录框
41、、文件框、图像框、图片框、标签、列表框等。事件过程名格式为：控件名事件名，故本题 Private Sub Click MouseDown 中的 Click 应为控件名。17.设有窗体的 Form MouseMove 事件过程如下：Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) If(Button And 3)=3 Then Print“检查按键“ End If End Sub关于上述过程，以下叙述中正确的是（分数：2.00）A.按下鼠标左键时，在窗体上显示“检查按键”B
42、.按下鼠标右键时，在窗体上显示“检查按键”C.同时按下鼠标左、右键时，在窗体上显示“检查按键” D.不论做何种操作，窗体上都不会显示解析：解析：鼠标事件的 Button 参数用以表示被按下的鼠标键，可以取 3 个值，按下左键取值为 1，按下右键取值为 2，按下中键取值为 4，若同时按下多个键，则取值为多个键值之和。18.要求当鼠标在图片框 P1 中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是（分数：2.00）A.Private Sub P1_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As
43、 Single) Print X，Y End SubB.Private Sub P1_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) PicturePrint X，Y End SubC.Private Sub P1_MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single) P1Print X，Y End Sub D.Private Sub Form_MouseMove(Button As Integer，Shift As
44、Integer，X As Single，Y As Single) P1Print X，Y End Sub解析：解析：在图片框中移动鼠标触发的事件是 P1。MouseMove 事件，在事件中控制在图片框中输出坐标。19.窗体的 MouseUp 事件过程如下：Private Sub Form_MouseUp(Button As Integer,Shift As Integer，X As Single，Y As Single)End Sub 关于以上定义，以下叙述中错误的是（分数：2.00）A.根据 Shift 参数，能够确定使用转换键的情况B.根据 X、Y 参数可以确定触发此事件时鼠标的位置C.B
45、uRon 参数的值是在 MouseUp 事件发生时，系统自动产生的D.MouseUp 是鼠标向上移动时触发的事件 解析：解析：鼠标状态事件又分为按下事件(MouseDown)、移动事件(MouseMove)和弹起事件(MouseUp)，这三个事件具有相间的参数。Button 参数的值是在 MouseUp 事件发生时，系统自动产生的，代表按下的是那个鼠标键；Shift 参数确定使用转换键的情况；X、Y 参数可以确定触发此事件时鼠标的位置。20.命令按钮 Commandl 的 MouseUp 事件过程结构如下：Private Sub Commandl_MouseUp(Button As Integ
46、er,Shift As Intege，X As Single，Y As Single)End SUb 则以下叙述中错误的是（分数：2.00）A.X、Y 参数表示的是 Commandl 左上角在窗体中的位置 B.Button 参数用于确定按下的鼠标键C.Shift 参数用于确定是否按下了 Alt、Ctrl 或 Shift 键D.MouseUp 表示抬起鼠标按键时触发的事件解析：解析：鼠标状态事件又分为按下事件(MouseDown)、移动事件(MouseMove)和弹起事件(MouseUp)，这三个事件具有相同的参数。Button 参数的值是在 MouseUp 事件发生时，系统自动产生的，代表按下
47、的是那个鼠标键；Shift 参数确定使用转换键的情况；X、Y 参数可以确定触发此事件时鼠标的位置。21.有下面事件过程：Private Sub Form_MouseMove(Button As Intege，Shift As Integer，X As Single，Y As Single) If Button=2 Then Form1PSet(X，Y)PSet 方法可以在 X，Y 处画一个点 End IfEnd Sub 程序运行后，产生的效果是（分数：2.00）A.在窗体上每单击鼠标左键一次，就在鼠标位置处画一个点B.按着鼠标左键，移动鼠标，可在窗体上画出鼠标的运动轨迹C.按着鼠标右键，移动鼠
48、标，可在窗体上画出鼠标的运动轨迹 D.不按任何鼠标键，移动鼠标，可在窗体上画出鼠标的运动轨迹解析：解析：鼠标事件分点击事件和状态事件：点击事件有单击(Click)和双击(DblClick)，不区分左右键；状态事件有按下(MouseDown)、移动(MouseMove)和弹起(MouseUp)，能够区分出鼠标的左、右和中间键。如果鼠标按钮是当其指针在窗体或控件之上时被按下并释放，则该对象将“捕获”鼠标并接收全部与该对象相关的鼠标事件。在本题代码中当鼠标移动时触发 MouseMove 事件，此时判断按下的鼠标键为右键(Button=2)时，则在窗体鼠标指针经过的位置依次画点，从而形成一条线。22.
49、窗体上已有 1 个名称为 Picture1 的图片框，要求实现下面 2 个功能之一：(1)在窗体上移动鼠标时，立即将 Picture1 显示在鼠标位置 (2)在窗体上单击鼠标时，立即将 Picture1 显示在鼠标位置下面不能实现上述任何功能的事件过程是（分数：2.00）A.Private Sub Form_MouseDown(BuRon As Integer，Shift As Integer，X As Single，Y As Single) Picture1Move X，Y End SubB.Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As Single，Y As Single) Picture1Move X，Y End SubC.Private Sub FormMouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) Picture1CurrentX=X：Picture1CurrentY=Y End SUb D.Private Sub Form_Mo
