打印本文 
关闭窗口 1."用菜单编辑器创建菜单时，如果要在一个菜单中添加一条分隔线，正确的操作是
A. 在标题输入框中输入“-”(减号)
B. 在名称输入框中输入“-”(减号)
C. 在标题输入框中输入“_”(下划线)
D. 在名称输入框中输入“_”(下划线)
2. 在显示菜单时，菜单项的下列哪个属性为True时将用浅灰色显示该菜单项标题
A. Caption
B. Checked
C. Enabled
D. Visible
3. "设有菜单结构如表11．6所示： 表1`1．6菜单结构要求在运行时，当鼠标单击菜单项“大图标”时，在这个菜单项前面就添加一个“√”，下面正确的事件过程是
A.Private Sub Bigicon_Click()
Bigicon.Checked=False
End Sub
B.Private Sub Bigicon_Click()
Me. Appear. Bigicon. Checked=True
End Sub
C.Private Sub Bigicon_Click()
Bigicon.Checked=True
End Sub
D.Private Sub Bigicon Click()
Appear.Bigicon.Checked=True
End Sub
4. "设在菜单编辑器中定义了一个菜单项，名为menul。为了在运行时隐藏该菜单项，应在程序中使用的语句是
A. menu1.Enabled=True
B. menu1.Enabled=False
C. menu1.Visible=True
D. menu1.Visible=False
二、填空题：
1．在窗体上有一个名为Text1的文本框和一个如表11.7所示的下拉菜单，其中“剪切”、“复制”可以把Text1中的内容“剪切”或“复制”到变量a中；“粘贴在尾部”可以把a中的内容接在Text1的原有内容之后；“覆盖”则用a中内容替换Text1的原有内容；“清空剪贴板”将把a中内容清空。
如果文本框中没有内容，则“剪切”、“复制”菜单项不可用，如果a中没有内容，则“粘贴”菜单项不可用。填空完成下面的程序。
表11.7菜单结构
标 题 名 称 层 次编辑 edit 1
剪切 cut 2
复制 copy 2
粘贴 paste 2
粘贴在尾部 append 3
覆盖 replace 3
清空剪贴板 clear 2
Dim a As String
Private Sub append_Click( )
Text1.Text = (1) Text1.Text + a
End Sub
Private Sub clear_Click( )
a = ""
cut. Enab1ed = (2) False
copy.Enabled = (3) False
End Sub
Private Sub copy_Click( )
a = Text1.Text
End Sub
Private Sub cut_Click( )
a = Text1.Text
(4) Text1.Text = ""
End Sub
Private Sub edit_Click( )
If Text1 .Text = "" Then
cut.Enabled = False
copy.Enabled = False
Else
cut. Enabled = True
copy. Enabled = True
End If
If (5) a ="" Then
paste. Enabled = False
Else
paste. Enabled = True
End If
End Sub
Private Sub replace_Click( )
Text1.Text = a
End Sub
2．在窗体上有一个名为Text1的文本框和一个弹出式菜单，菜单名称为Textformat，含“宋体”、“黑体”、“隶书”菜单项，其作用分别是把Text1中的文字改为相应的字体。运行时，用鼠标右键单击文本框时弹出此菜单。在菜单中只显示与Text1中字体不同的其他两种字体菜单项。填空完成下面的程序。
Private Sub font1_Click( )
Text1.FontName ="宋体"
End Sub
Private Sub font2_Click( )
Text1.FontName ="黑体"
End Sub
打印本文 关闭窗口