关于VB的菜单

菜单

1． 要使菜单项MenuOne在程序运行时失效，使用的语句是

MenuOne.Visible=True

MenuOne.Visible=False

MenuOne.Enabled=True

MenuOne.Enabled=False

2． 在窗体上建立通用对话框需要添加的控件是

Data控件 From控件CommonDialog控件VBComboBox控件

3． 在设计菜单时，如果要在菜单中加入一个菜单分隔项，则菜单分隔项的标题必须设

置为( )

冒号(:) 加号(+) 减号(-) 感叹号(!)

4． 以下叙述中错误的是

在同一窗体的菜单项中，不允许出现标题相同的菜单项

在菜单的标题栏中，"&"所引导的字母指明了访问该菜单项的访问键

程序运行过程中，可以重新设置菜单的Visible属性

弹出式菜单也在菜单编辑器中定义

5． 设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，

应使用的语句是

menu1.Enabled=True Munu1.Enabled=False Menu1.Visible=True Menu1.Visible=False

6． 以下关于窗体的描述中，错误的是

执行UnloadFoMl语句后，窗体FoMl消失，但仍在内存中

窗体的Load事件在加载窗体时发生

当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止

窗体的Height、width属性用于设置窗体的高和宽

7． 在用菜单编辑器设计菜单时，必须输入的项是( )

快捷键 标题 索引 名称

8．设已经在"菜单编辑器"中设计了窗体的快捷菜单，其顶级菜单为Bs，取消其"可见"属性，运行时，

在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是

A．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _

X As Single, Y As Single)

If Button=2 Then PopupMenu Bs, 2

End Sub

B．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _

X As Single, Y As Single)

PopupMenu Bs

End Sub

C．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _

X As Single, Y As Single)

PopupMenu Bs,0

End Sub

D．Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _

X As Single, Y As Single)

If (Button=vbLeftButton) Or (Button=vbRightButton) Then PopupMenu Bs