1、菜单与对话框及答案解析(总分：34.00，做题时间：90 分钟)一、B选择题/B(总题数：13，分数：26.00)1.如果设置了通用对话框的以下属性：DefaultExt=“doc“ FileName=“c:/file1.txt“，Filter= “应用程序*.exe”，则显示“打开”对话框式，在“文件类型”下拉列表中的默认文件类型是 _ 。（分数：2.00）A.应用程序(*.exB.*.docC.*.txtD.不确定2.以下叙述中错误的是_ 。（分数：2.00）A.在同一窗体的菜单项中，不允许出现 Name 属性相同的菜单项B.在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键C
2、.程序运行过程中，可以重新设置菜单的 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
3、 End SubB.Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Single, Y As Singl PopupMenu a1 End SubC.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
4、As Integer, _ Shift As Integer, X As Single, Y As Singl If Button = 2 Then PopupMenu a 1 End If End Sub4.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个名为 Command1的命令按钮，并编写如下事件过程： Private Sub Command1_ Click() CommonDialog1. Flags= cd10FNHideReadOnly CommonDialog1. Filter= “All Files (*.*) *.*Text File“ & _ “
5、(*.txt) *.txt Batch Files (*.bat) *.bat“ CommonDialog1. FilterIndex = 2 CommonDialog1. ShowOpen MsgBox CommonDialog1. FileName End Sub程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是_ 。（分数：2.00）A.All Files (*.*)B.Text Files(*.txC.Batch Files (*.baD.不确定5.如果要在菜单中添加一个分隔线，则应将其 Caption 属性设置为_ 。（分数：2.00）A.=B.*C.
6、&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.每个菜单项都是一个控件，与普通控件一样，也有属
7、性和事件B.菜单项只能响应 Click 事件C.菜单项的索引号必须从 1开始D.菜单项的索引号可以不连续8.以下叙述中错误的是_ 。（分数：2.00）A.菜单名称是程序使用菜单的标识B.菜单名称是设置菜单属性的对象C.菜单名称是显示在菜单项上的字符串D.菜单名称是引用菜单项属性的对象9.假定有一个菜单项，名称为 MenuItem，为了在运行时使该菜单项失效(变灰)，应使用的语句为_ 。（分数：2.00）A.MenuIte Enabled = FalseB.MenuIte Enabled= TureC.MenuIte Visible = TrueD.MenuIte Visible= False1
8、0.以下叙述中错误的是_ 。（分数：2.00）A.在程序运行时，通用对话框控件是不可见的B.在同一个程序中，用不同的方法(如 ShowOpen或 ShowSave 等)激活同一个通用对话框，可以使该通用对话框具有不同的作用C.调用通用对话框的 ShowOpen 方法，能够直接打开在该通用对话框中指定的文件D.调用对话框的 ShowColor 方法，可以打开颜色对话框11.以下关于菜单的叙述中，不正确的是_ 。（分数：2.00）A.在程序运行过程中能够增加或减少菜单项B.使菜单项的 Enabled 属性为 False，则可删除该菜单项C.弹出式菜单在菜单编辑器中设计D.利用控件数组可以实现菜单项
9、的增加或减少12.在窗体上画一个通用对话框，其名称为 CommonDialog1，则下列与 CommonDialog1.ShowOpen方法等效的语句是_。（分数：2.00）A.CommonDialog1.Action= 1B.CommonDialog1.Action=2C.CommonDialog1.Action = 3D.CommonDialog1.Action = 413.在窗体上画一个名为 CommonDialog1的通用对话框，一个名称为 Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框窗口。该窗口的标题为“Save”，默认文件名为“SaveFile“，在
10、“文件类型”栏中显示“*.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 SubB.Private Sub Command1_C
11、lick() 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 F
12、iles %* *.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 CommonDialo
13、g1. DialogTitle = “Save“. CommonDialog1. Action = 1 End Sub二、B填空题/B(总题数：4，分数：8.00)14.在窗体上画一个名为 Text1的文本框，然后建立一个弹出式菜单，菜单名称为 Textformat，包含“宋体”、“黑体”、“隶书”等 3个菜单项，其名称分别为 font1、font2 和 font3，分别用来使 Text1中的文字用相应的字体显示。程序运行后，如果用鼠标右键单击文本框，则弹出此菜单。要求：在弹出的菜单中只显示与 Text1中字体不同的其他两种字体的菜单项。例如，假定文本框种显示的字体是“宋体”，则弹出的菜单中只
14、有“黑体”和“隶书”两个菜单项(如下图所示)。请填空。 （分数：2.00）填空项 1:_15.在窗体上画一个名称为 Text1的文本框，一个名称为 CD1的通用对话框，一个名称为 C1、标题为“存盘”的命令按钮，编写适当的事件过程。程序运行时，如果单击“存盘”命令按钮，则打开保存文件对话框，并把 Text1中的内容按照在对话框中选定的路径和文件存盘。在刚打开对话框时的默认路径是“c: /my documents/”。请填空。 Private Sub C1_ Click() CD1. InitDir = CD1. FileName = “myflie.txt“ CD1. Filter = “文本
15、文件 _” CD1. _ = Open_ For Output As #1 Print #1, _ Close #1 End Sub（分数：2.00）填空项 1:_16.在窗体上画一个名称为 CD1的通用对话框，一个名称为 Text1的文本框和一个名称为 C1 的命令按钮。程序运行后，如果单击 C1命令按钮，则弹出打开文件对话框，该对话框的标题是“打开文件”，此时如果单击对话框上的“打开”按钮，则把选中的文件读到内存，并在 Text1中显示出来。下面给出了 C1的Click事件过程。请填空。 Private Sub C1_ Click() Dim n As Long CD1 _=“打开文件”
16、CD1. FileName = “ CD1 _= “所有文件*.* 文本文件*.txt Word 文档*.doc“ CD1. FilterIndex = 2 CD1. If CD1. FileName “ “ Then Open _ For _ As #1 n = LOF(1) Text1. Text = Input (n, #1) Close _ End If End Sub（分数：2.00）填空项 1:_17.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个名称为 Command1的命令按钮，并编写如下事件过程： Private Sub Command1_ Cli
17、ck() CommonDialog1. Flags = cd10FNHideReadOnly CommonDialog1. Filter= “All Files (*.*) *.* Text Files“ & “(*.txt *.txtBatch Files (*.bat)*.bat)“ CommonDialog1. FilterIndex = 1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 _ ；如果在对话框中选择 D盘 temp
18、目录下的 te1.txt 文件，然后单击“确定”按钮，则在信息框中显示的提示信息是_ 。（分数：2.00）填空项 1:_菜单与对话框答案解析(总分：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.在
19、同一窗体的菜单项中，不允许出现 Name 属性相同的菜单项 B.在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键C.程序运行过程中，可以重新设置菜单的 Visible 属性D.同一个窗体中的所有弹出式菜单都在同一个菜单编辑器中定义解析：3.假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单的名称为 a1，其“可见”属性为False，则程序运行后，可以同时响应鼠标左键单击和右键单击的事件过程是 _ 。（分数：2.00）A.Private Sub Form_ MouseDown (Button As Integer, _ Shift As Integer, X As Singl
20、e, 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 Th
21、en 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= cd10FNH
22、ideReadOnly 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
23、 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
24、=”*.*所有文件*.doc Word 文档*.txt文本文件”解析：7.以下叙述中错误的是_ 。（分数：2.00）A.每个菜单项都是一个控件，与普通控件一样，也有属性和事件B.菜单项只能响应 Click 事件C.菜单项的索引号必须从 1开始 D.菜单项的索引号可以不连续解析：8.以下叙述中错误的是_ 。（分数：2.00）A.菜单名称是程序使用菜单的标识B.菜单名称是设置菜单属性的对象C.菜单名称是显示在菜单项上的字符串 D.菜单名称是引用菜单项属性的对象解析：9.假定有一个菜单项，名称为 MenuItem，为了在运行时使该菜单项失效(变灰)，应使用的语句为_ 。（分数：2.00）A.Menu
25、Ite Enabled = False B.MenuIte Enabled= TureC.MenuIte Visible = TrueD.MenuIte Visible= False解析：10.以下叙述中错误的是_ 。（分数：2.00）A.在程序运行时，通用对话框控件是不可见的B.在同一个程序中，用不同的方法(如 ShowOpen或 ShowSave 等)激活同一个通用对话框，可以使该通用对话框具有不同的作用C.调用通用对话框的 ShowOpen 方法，能够直接打开在该通用对话框中指定的文件 D.调用对话框的 ShowColor 方法，可以打开颜色对话框解析：11.以下关于菜单的叙述中，不正确
26、的是_ 。（分数：2.00）A.在程序运行过程中能够增加或减少菜单项B.使菜单项的 Enabled 属性为 False，则可删除该菜单项 C.弹出式菜单在菜单编辑器中设计D.利用控件数组可以实现菜单项的增加或减少解析：12.在窗体上画一个通用对话框，其名称为 CommonDialog1，则下列与 CommonDialog1.ShowOpen方法等效的语句是_。（分数：2.00）A.CommonDialog1.Action= 1 B.CommonDialog1.Action=2C.CommonDialog1.Action = 3D.CommonDialog1.Action = 4解析：13.在窗
27、体上画一个名为 CommonDialog1的通用对话框，一个名称为 Command1的命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框窗口。该窗口的标题为“Save”，默认文件名为“SaveFile“，在“文件类型”栏中显示“*.txt”。能够满足上述要求的程序是 _ 。（分数：2.00）A.Private Sub Command1_ Click() CommonDialog1. FileName = “SaveFile“ CommonDialog1. Filter = “All Files *.* *.txt *.txt *.doc *.doc“ CommonDialog1. Fi
28、lterlndex = 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. Actio
29、n = 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 = “Sav
30、eFile“ 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，分别用来
31、使 Text1中的文字用相应的字体显示。程序运行后，如果用鼠标右键单击文本框，则弹出此菜单。要求：在弹出的菜单中只显示与 Text1中字体不同的其他两种字体的菜单项。例如，假定文本框种显示的字体是“宋体”，则弹出的菜单中只有“黑体”和“隶书”两个菜单项(如下图所示)。请填空。 （分数：2.00）填空项 1:_ （正确答案：Button=2 False 黑体 隶书 PopupMenu）解析：15.在窗体上画一个名称为 Text1的文本框，一个名称为 CD1的通用对话框，一个名称为 C1、标题为“存盘”的命令按钮，编写适当的事件过程。程序运行时，如果单击“存盘”命令按钮，则打开保存文件对话框，并把
32、 Text1中的内容按照在对话框中选定的路径和文件存盘。在刚打开对话框时的默认路径是“c: /my documents/”。请填空。 Private Sub C1_ Click() CD1. InitDir = CD1. FileName = “myflie.txt“ CD1. Filter = “文本文件 _” CD1. _ = Open_ For Output As #1 Print #1, _ Close #1 End Sub（分数：2.00）填空项 1:_ （正确答案：“c:/ my documents/” *.txt Action 2 FileName Text1. Text或 Te
33、xt1）解析：16.在窗体上画一个名称为 CD1的通用对话框，一个名称为 Text1的文本框和一个名称为 C1 的命令按钮。程序运行后，如果单击 C1命令按钮，则弹出打开文件对话框，该对话框的标题是“打开文件”，此时如果单击对话框上的“打开”按钮，则把选中的文件读到内存，并在 Text1中显示出来。下面给出了 C1的Click事件过程。请填空。 Private Sub C1_ Click() Dim n As Long CD1 _=“打开文件” CD1. FileName = “ CD1 _= “所有文件*.* 文本文件*.txt Word 文档*.doc“ CD1. FilterIndex
34、= 2 CD1. If CD1. FileName “ “ Then Open _ For _ As #1 n = LOF(1) Text1. Text = Input (n, #1) Close _ End If End Sub（分数：2.00）填空项 1:_ （正确答案：DialogTitle Filter Showopen FileName Input #1 或 1）解析：17.在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个名称为 Command1的命令按钮，并编写如下事件过程： Private Sub Command1_ Click() CommonDial
35、og1. Flags = cd10FNHideReadOnly CommonDialog1. Filter= “All Files (*.*) *.* Text Files“ & “(*.txt *.txtBatch Files (*.bat)*.bat)“ CommonDialog1. FilterIndex = 1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后，单击命令按钮，将显示一个“打开”对话框，此时在“文件类型”框中显示的是 _ ；如果在对话框中选择 D盘 temp 目录下的 te1.txt 文件，然后单击“确定”按钮，则在信息框中显示的提示信息是_ 。（分数：2.00）填空项 1:_ （正确答案：All Files(*.*) D:/temp/te1.txt）解析：
