- 1、本文档共11页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第十章键盘 - 副本
第十章键盘、鼠标事件一、选择题 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
文档评论(0)