单项选择题

设已经在菜单编辑器中设计了窗体的快捷菜单，某顶级菜单为a1，且取消其“可见”属性。运行时，可以使快捷菜单的菜单项响应鼠标左键单击和右键单击的事件过程是()。

A) 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
B) Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_
X As Single,Y As Single
PopupMenu a1,0
End Sub
C) Private Sub Form_MouseDown(Button As Integer,Shift As Integer,_
X As Single,Y As Single
PopupMenu a1
End Sub
D) 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

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)As String For i=1 To 5 a(i):Chr(Asc( A )+(i-1)) Next i For Each b In a Print b; Next End Sub 程序运行后，单击命令按钮，输出结果是( )。

A) ABCDE
B) 1 2 3 4 5
C) abcde
D) 出错信息

单项选择题

下面程序的运行结果是( )。 Option Base 1 Private Sub Command1_Click() Dim x,y(3,3) x=Array(1,2,3,4,5,6,7,8,9) For i=1 To 3 For i=1 To 3 y(i,j)=(i*j) If(j＞=i)Then Print y(i,j); Next i Print Next i End Sub

A) 1 2 3
2 4 6
4 6 8
B) 1 2 3
2 4 6
3 6 9
C) 1
2 4
3 6 9
D) 1 2 3
4 6
9