第十章键盘 - 副本.docx

第十章键盘、鼠标事件一、选择题 1. Visual Basic没有提供下列________事件。A、MouseDown　　B、MouseUp　　 C、MouseMove　　D、MouseExit 2. 把窗体的KeyPreview属性设置为True,然后编写如下事件过程:Private Sub Form_KeyPress(KeyAscii As Integer)Dim ch As Stringch = Chr(KeyAscii)KeyAscii = Asc(UCase(ch))Print Chr(KeyAscii + 2)End Sub程序运行后,按键盘上的”A”键,则在窗体上显示的内容是A、A　　B、B　　C、C　　D、D 3. 与键盘操作有关的事件有KeyPress、KeyUp和KeyDown事件，当用户按上并且释放一个键后，这三个事件发生的顺序是:A、KeyDown、KeyPress、KeyUp B、KeyDown、KeyUp、KeyPressC、KeyPress、KeyDown、、KeyUp D、没有规律 4. 在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序；Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPrint 12345End IfEnd SubPrivate Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Print 67890End Sub程序运行后，在命令按钮上单击鼠标左键，则在窗体上显示的内容是:A、12345 B、67890 C、12345 D、6789067890 　 12345 5. 对窗体编写如下代码：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 ThenPrint ****End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Print ####End Sub程序运行后，如果单击鼠标右键，则输出结果为：A、**** B、#### C、**** D、#### #### **** 6. 在窗体上面画一个名称为TxtA的文本框，然后编写如下的事件过程：Private Sub TxtA_KeyPress(Keyascii as integer)……End Sub若焦点位于文本框中，则能够触发KeyPress事件的操作是：A、单击鼠标　　　　　　B、双击文本框C、鼠标滑过文本框　　　D、按下键盘上的某个键 7. 对窗体编写如下代码：Option Base 1Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m = a(1)n = 1If KeyAscii = 13 ThenFor i =2 To 5If a(i)m Thenm =a(i)n =iEnd IfNext iEnd IfPrint mPrint nEnd Sub程序运行后，按回车键，输出结果为：A、48 B、237 C、498 D、498 4 1 5 4 8. 在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码：Dim SaveAll As StringPrivate Sub Command1_Click()Text1．Text=UCase(SaveAll)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后，在键盘上输入abcdefg，单击命令按钮，则文本框中显示的内容为：A)abcdefg　　B)不显示任何信息　　C)ABCDEFG　　D)出错 9. 假定有如下事件过程： Private Sub Form_MouseDown(button As Integer,Shift As Integer, x As Single，Y As Single) If Button＝2 then PopupMe