菜单与对话框

菜单与对话框(总分：34.00，做题时间：90分钟)一、{{B}}选择题{{/B}}(总题数：13，分数：26.00)1.如果设置了通用对话框的以下属性：DefaultExt="doc" FileName="c:/file1.txt"，Filter= "应用程序｜*.exe”，则显示“打开”对话框式，在“文件类型”下拉列表中的默认文件类型是 ______ 。

（分数：2.00）A.应用程序(*.ex √B.*.docC.*.txtD.不确定解析：2.以下叙述中错误的是______ 。

（分数：2.00）A.在同一窗体的菜单项中，不允许出现Name 属性相同的菜单项√B.在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键C.程序运行过程中，可以重新设置菜单的Visible 属性D.同一个窗体中的所有弹出式菜单都在同一个菜单编辑器中定义解析：3.假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单的名称为a1，其“可见”属性为False，则程序运行后，可以同时响应鼠标左键单击和右键单击的事件过程是 ______ 。

（分数：2.00）A.Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As Singl If Button = 1 And Button = 2 Then PopupMenu al End If End SubB.Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As Singl PopupMenu a1 End Sub √C.Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As Singl If Button = 1 Then PopupMenu a 1 End If End SubD.Private Sub Form_ MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Singl If Button = 2 Then PopupMenu a 1 End If End Sub解析：4.在窗体上画一个通用对话框，其名称为CommonDialog1，然后画一个名为Command1的命令按钮，并编写如下事件过程： Private Sub Command1_ Click() CommonDialog1. Flags= cd10FNHideReadOnly CommonDialog1. Filter= "All Files (*.*) ｜*.*｜Text File" & _ "(*.txt) ｜*.txt ｜ Batch Files (*.bat)｜ *.bat" CommonDialog1. FilterIndex = 2 CommonDialog1. ShowOpen MsgBox CommonDialog1. FileName End Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是______ 。

（分数：2.00）A.All Files (*.*)B.Text Files(*.tx √C.Batch Files (*.baD.不确定解析：5.如果要在菜单中添加一个分隔线，则应将其Caption 属性设置为______ 。

（分数：2.00）A.=B.*C.&D.- √解析：6.设通用对话框的名称为CD1，如，果希望在“打开”对话框中的“文件类型”列表中包含所有文件、Word 文档和文本文件，则应把Filter 属性设置为______ 。

（分数：2.00）A.CD1.Filter=”所有文件｜Word 文档｜文本文件”B.CD1.Filter=”所有文件｜*.*｜Word文档｜*.doc，文本文件｜*.txt" √C.CD1.Filter=所有文件｜*.*｜Word 文档｜*.doc｜文本文件｜*.txtD.CD1.Filter=”*.*｜所有文件｜*.doc ｜Word 文档｜*.txt｜文本文件”解析：7.以下叙述中错误的是______ 。

（分数：2.00）A.每个菜单项都是一个控件，与普通控件一样，也有属性和事件B.菜单项只能响应Click 事件C.菜单项的索引号必须从1开始√D.菜单项的索引号可以不连续解析：8.以下叙述中错误的是______ 。

（分数：2.00）A.菜单名称是程序使用菜单的标识B.菜单名称是设置菜单属性的对象C.菜单名称是显示在菜单项上的字符串√D.菜单名称是引用菜单项属性的对象解析：9.假定有一个菜单项，名称为MenuItem，为了在运行时使该菜单项失效(变灰)，应使用的语句为______ 。

（分数：2.00）A.MenuIte Enabled = False √B.MenuIte Enabled= TureC.MenuIte Visible = TrueD.MenuIte Visible= False解析：10.以下叙述中错误的是______ 。

（分数：2.00）A.在程序运行时，通用对话框控件是不可见的B.在同一个程序中，用不同的方法(如ShowOpen或ShowSave 等)激活同一个通用对话框，可以使该通用对话框具有不同的作用C.调用通用对话框的ShowOpen 方法，能够直接打开在该通用对话框中指定的文件√D.调用对话框的ShowColor 方法，可以打开颜色对话框解析：11.以下关于菜单的叙述中，不正确的是______ 。

（分数：2.00）A.在程序运行过程中能够增加或减少菜单项B.使菜单项的Enabled 属性为False，则可删除该菜单项√C.弹出式菜单在菜单编辑器中设计D.利用控件数组可以实现菜单项的增加或减少解析：12.在窗体上画一个通用对话框，其名称为CommonDialog1，则下列与CommonDialog1.ShowOpen方法等效的语句是______。

（分数：2.00）monDialog1.Action= 1 √monDialog1.Action=2monDialog1.Action = 3monDialog1.Action = 4解析：13.在窗体上画一个名为CommonDialog1的通用对话框，一个名称为Command1的命令按钮。

要求单击命令按钮时，打开一个保存文件的通用对话框窗口。

该窗口的标题为“Save”，默认文件名为“SaveFile"，在“文件类型”栏中显示“*.txt”。

能够满足上述要求的程序是 ______ 。

（分数：2.00）A.Private Sub Command1_ Click() CommonDialog1. FileName = "SaveFile" CommonDialog1. Filter = "All Files ｜ *.* ｜*.txt *.txt｜ *.doc｜ *.doc" CommonDialog1. Filterlndex = 2 CommonDialog1. DialogTitle = "Save" CommonDialog1. Action = 2 End Sub √B.Private Sub Command1_Click() CommonDialog1. FileName = "SaveFile" CommonDialog1. Filter = "All Files ｜*.* ｜ *.txt｜*.txt｜*.doc｜*.doc" CommonDialog1. Filterlndex = 1 CommonDialog1. DialogTitle = "Save" CommonDialog1. Action = 2 End SubC.Private Sub Command1_ Click() CommonDialog1. FileName = "Save" CommonDialog1. Filter = "All Files ｜%* ｜*.txt｜*.txt｜*.doc｜*.doc" CommonDialog1. Filterlndex = 2 CommonDialog1. DialogTitle = "Save" CommonDialog1. Action = 2 End SubD.Private Sub Command1_ Click() CommonDialog1. FileName = "SaveFile" CommonDialog1. Filter = "All Files ｜*.*｜*.txt｜*.txt｜*.doc｜*.doc" CommonDialog1. Filterlndex = 1 CommonDialog1. DialogTitle = "Save". CommonDialog1. Action = 1 End Sub解析：二、{{B}}填空题{{/B}}(总题数：4，分数：8.00)14.在窗体上画一个名为Text1的文本框，然后建立一个弹出式菜单，菜单名称为 Textformat，包含“宋体”、“黑体”、“隶书”等3个菜单项，其名称分别为font1、font2和font3，分别用来使Text1中的文字用相应的字体显示。

程序运行后，如果用鼠标右键单击文本框，则弹出此菜单。

要求：在弹出的菜单中只显示与Text1中字体不同的其他两种字体的菜单项。

例如，假定文本框种显示的字体是“宋体”，则弹出的菜单中只有“黑体”和“隶书”两个菜单项(如下图所示)。

请填空。

Private Sub font1_ Click() Text1. FontName = “宋体” End Sub Private Sub font2 Click() Text1. FontName = “黑体” End Sub Private Sub font3 Click() Text1. FontName = “隶书” End Sub Private Sub Form_ MouseDown (Button As Integer, Shift As Integer, _ X As Single, Y As Single) If ______ Then If Text1. FontName =“宋体” Then Font1. Visible = Font2. Visible = True Font3. Visible = True ElseIf Text1. FontName= "______ "Then Font1. Visible = True Font2. Visible = False Font3. visible = True ElseIf Text1. FontName =" ______ "Then Font1. Visible = True Font2. Visible = True Font3. Visible = False End If ______ Textformat End If End Sub（分数：2.00）填空项1:__________________ （正确答案：Button=2 False 黑体隶书 PopupMenu）解析：15.在窗体上画一个名称为Text1的文本框，一个名称为CD1的通用对话框，一个名称为 C1、标题为“存盘”的命令按钮，编写适当的事件过程。