单项选择题

设在窗体上有个文本框，然后编写如下的事件过程：

Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)

Const Alt=4

Const Key_F2=&H71

altdown%=(Shift And Alt)＞0

f2down%=(KeyCode=Key_F2)

If altdown% And f2down% Then

Text1.Text="BBBBB"

End If

End Sub

上述程序运行后，如果按“Shift+F2”组合键，则在文本框中显示的是

A．Alt+F2
B．BBBBB
C．随机出几个数
D．文本框内容无变化

<上一题目录下一题>

热门试题

单项选择题

设已经在菜单编辑器中设计了窗体的快捷菜单，某顶级菜单为a1，且取消其“可见”属性。运行时，哪个事件过程可以使快捷菜单的菜单项响应鼠标左键单击和右健单击的事件过程是Ａ) Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=2 Then PopupMenu a1，2 End Sub Ｂ) Private Sub Form_MouseDown(ButtonAsInteger，ShiftAsInteger，X As Single，Y As Single) PopupMenu a1，0 End Sub Ｃ) Private Sub Form_Mouse Down(Button As Integer，Shift As Integer，X As Single，Y As Single) PopupMenu a1 End Sub Ｄ) Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If(Button=vbLetfButton) Or (Button=vbRightButton) Then PopupMenu a1 End Sub

单项选择题

阅读下列程序： PrivateSubCommand1_Click() Dim i As Integer，k As Integer k=2 For i=1 To 3 Print Fun(k)； Next End Sub Function Fun(j As Integer) Static b a=0 a=a+1 b=b+1 Fun=a*b+j End Function 程序运行后，单击命令按钮输出结果是

A．234
B．345
C．567
D．356

相关试题