单项选择题

设在窗体上有一个文本框，然后编写如下的事件过程：　　 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger)　　　　Const Alt=4　　　　Const Key_f2=&H71　　　　altdown%=(Shift And Alt) ＞ 0　　　　f2down% And f2down% Then　　　　If altdown% And f2down% Then　　　　　　Text ="abl"　　　　End If　　 Ead Sub　　程序运行后，清除文本框中原有内容，如果按Shift+F2键，则在文本框中显示的是

A．Alt+F2
B．abl
C．随机出儿个数
D．不发生变化

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个通用对话框图，其Name属性为Cont,瑞画一个命令按钮，Name属性为Command1，然后编写如下事件过程： Privute Sub Command1_Click( ) Cont．FileName= Cont．Flags=vbOFNFileMustExist Cont．Filter= All Files| * . * Cont．FilterIndes_3 Cont．DialogTitle= Open File Cont．Action=1 If Cont．FileName= Then MsgBox No file selected Else Open Cont．FileName For Input As #1 Do While Not EOF(1) Input #1. b$ Print b$ Loop End If End Sub 以下各选项，对上述事件过程描述错误的是

A．该事件过程用来建立一个Open对话框，可以在这个对话框中选择要打开的文件
B．选择后单击“打开”按钮，所选择的文件名即作为对话框的FileName属性值
C．Open对话框不仅仅用来选择一个文件，还可以打开、显示文件
D．过程中“ConAction=1”用来建立 Open对话框，它与ConShowOpen等价

单项选择题

设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为Bt，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是

A．Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_　　　　　　　　　　　　　　　X As Single, Y As Singl　　　If Button=2 Then PopupMenu Bt, 2　 End Sub
B．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _　　　　　　　　　　　　　　　X As Single, Y As Singl　　　PopupMenu Bt　 End Suh
C．Private Sub Form MouseDown(Button As Integer, Shift As Integer, _　　　　　　　　　　　　　　　X As Single, Y As Singl　　　PopupMenu Bt,0　 End Sub
D．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _　　　　　　　　　　　　　　　X As Single, Y As Singl　　　If (Button=vbLeftButto Or ( Button=vbRightButto Then PopupMenu Bt　 End Sub

相关试题