第九章菜单.docx

第九章菜单、通用对话框一、选择题 1. 菜单控件只包含一个事件，即 ，当用鼠标单击或键盘选中后按回车键触发该事件，除分隔条以外的所有菜单控件都能识别该事件A、GotFocus B、Load C、Click D、KeyDown 2. 要利用通用对话框控件来显示保存文件对话框，需要调用控件的_方法。A、ShowprinterB、ShowOpenC、ShowSaveD、ShowColor 3. 下列不能打开菜单编辑器的操作是：A、按Ctrl+EB、单击工具栏中的“菜单编辑器”按钮C、执行“工具”菜单中的“菜单编辑器”命令D、按Shift + Alt + M 4. 下列说法正确的是:A、 任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器B、 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器C、 只有当某个窗体为当前活动窗体时，才能打开菜单编辑器D、 任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器 5. 在某菜单中，有一菜单项（Caption）内容是”NEW”，名字（Name）是“Create”，则单击该菜单项所产生的事件过程应是：A、Private Sub MnuNEW_Click() B、Private Sub Create_Click()C、Private Sub NEW_Click() D、Sub Mnu_Create_Click() 6. 在VB中要设置菜单项的热键，应使用符号：A、& B、* C、$ D、 7. 在用菜单编辑器设计菜单时，必须输入的项是：A、快捷键B、标题C、索引D、名称 8. 要使菜单项MenuOne在程序运行时失效，使用的语句是:A、 MenuOne.Visible=True B、 MenuOne.Visible=FalseC、 MenuOne.Enabled=True D、 MenuOne.Enabled=False 9. 假定在窗体上建立一个通用对话框，其名称为CommonDialog1，用下面的语句可以建立一个对话框：CommonDialog1.Action=l与该语句等价的语句是：A、CommonDialog1ShowOpen B、CommonDialog1ShowSaveC、CommonDialog1ShowColorD、CommonDialog1ShowFont10. 关于通用对话框控件叙述不正确的是:A、CommonDialog控件是提供如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框 B、在运行Windows帮助引擎时，控件能够显示帮助信息C、控件显示的对话框由控件的方法决定D、设计时在窗体上将该控件显示成一个图标，此图标的大小可以调整11. 假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效（变灰），应使用的语句为：A、MenuItem. Enabled=FalseB、MenuItem. Enabled=TrueC、MenuItem. Visible=TrueD、Menultem. Visible=False 12. 在窗体上画一个通用对话框，其名称为CommonDialogl，然后画一个命令按钮，并编写如下事件过程：Private SUb Command1_Click()CommonDialog1Flags=cdlOFNHideReadOnlyCommonDialoglFilter=All Files(*)*.*Text Files&_(*txt) *txtBatch Files(*.bat) *.batCommonDialog1FilterIndex=2CommonDialoglShowOPenMsgBox CommonDialoglFilenameEnd Sub程序运行后，单击命令按钮，将显示一个打开对话框，此时在文件类型框中显示的是：A、All Files(*)B、Text Files(*txt)C、Batch Files(*Bat)D、不确定13. 在窗体上建立通用对话框需要添加的控件是:A、 Data控件 B、 From控件 C、 CommonDialog控件 D、 VBComboBox控件14. 设菜单中有一个菜单项为Open。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行Open命令，则在菜单编辑器中设置“Open命令的方式是：A、把Caption属性设置为&OpenB、把Caption属性设置为O&penC、把Name属性设置为&OpenD、把Name属性设置为O&pen15. 在窗体中添加一个名称为CommonDialog1的通用对话框、一个名称为Command1的命令按钮。打开一个打开文件的通用对话框。该窗口的标题为“打开”，缺省文件名为“t1.bmp”，在“文件类型”栏中有3类图形文件（WMF/BMP/JPG）。则能够满足上述要求的程序是：A、 Private Sub Command1_Click()CommonDialog1.DialogTitle = t1.bmpCommonDialog1.Filter = (*.wmf)|(*.bmp)|(*.jpg)CommonDialog1.FileName = 打开CommonDialog1.Action = 2End SubB、Private Sub Command1_Click()CommonDialog1. FileName = t1.bmpCommonDialog1.Filter = (*.wmf)|(*.bmp)|(*.jpg)CommonDialog1. DialogTitle = 打开CommonDialog1.Action = 1End SubC、 Private Sub Command1_Click()CommonDialog1. FileName = t1.bmpCommonDialog1.Filter = WMF|(*.wmf)|BMP|(*.bmp)|JPG|(*.jpg)CommonDialog1. DialogTitle = 打开CommonDialog1.Action = 2End SubD、 Private Sub Command1_Click()CommonDialog1. FileName = t1.bmpCommonDialog1.Filter = WMF|(*.wmf)|BMP|(*.bmp)|JPG|(*.jpg)CommonDialog1. DialogTitle = 打开CommonDialog1.Action = 1End Sub16. 以下关于菜单的叙述中，错误的是：A、在程序运行过程中可以增加或减少菜单项B、如果把一个菜单的Enabled属性设置为False，则可删除该菜单项C、弹出式菜单在菜单编辑器中设计D、利用控件数组可以实现菜单项的增加或减少17. 在窗体上画一个名称为CommandDialog1 的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程：Private Sub Command1_Click()CommonDialog1.FileName =CommonDialog1.Filter=All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.TxtCommonDialog1.FilterIndex=2CommonDialog1.DialogTitle=VBTestCommonDialog1.Action=1End Sub对于这个程序，以下叙述中错误的是：A、该对话框被设置为“打开”对话框B、在该对话框中指定的默认文件名为空C、该对话框的标题为VBTestD、在该对话框中指定的默认文件类型为文本文件(*.Txt)18. 下列有关子菜单的说法中，错误的是：A、 除了Click事件之外，菜单项不可以响应其他事件B、 每个菜单项都是一个控件，与其他控件一样也有其属性和事件C、 菜单项的索引号必须从1开始D、 菜单的索引号可以不连续19. 以下叙述中错误的是：A、用Shell函数可以调用能够在Windows下运行的应用程序 B、用Shell函数可以调用可执行文件，也可以调用VisualBasic的内部函数 C、调用Shell函数的格式应为：Shell() D、用Shell函数不能执行DoS命令 20. 在窗体中添加一个通用对话框Commondialog1和一个命令按钮Command1，当单击按钮时打开颜色对话框，能实现此功能的程序段是：A、Private Sub Command1_Click() B、Private Sub Command1_Click()CommonDialog1.ShowOpen CommonDialog1.ShowColorEnd Sub End SubC、Private Sub Command1_Click() D、Private Sub Command1_Click()CommonDialog1.ShowFont CommonDialog1.ShowHelpEnd Sub End Sub21. 下列各选项说法错误的一项是:A、 文件对话框可分为两种，即打开(Open) 文件对话框和保存(Save As) 文件对话框B、 通用对话框的Name属性的默认值为CommonDialogX，此外，每种对话框都有自己的默认标题C、 打开文件对话框可以让用户指定一个文件，返回指定文件名。D、 DefaultEXT属性和DialogTitle属性都是打开对话框的属性，但非保存对话框的属性22. 在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是doc文件，则正确的描述格式是:A、”text(.doc)| *.doc” B、”文本文件(.doc)|(*.doc)”C、”text(.doc)|(*.doc)” D、” text(.doc)(*.doc)”23. 在下列关于菜单的说法中，错误的是:A、每一个菜单项都是一个控件，与其他控件一样都有自己的属性和事件B、除了Click事件之外，菜单项还能响应其他的如 DblClick等事件过程C、菜单项的快捷键不可以任意设置D、在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择24. 如果要向工具箱中加入控件的部件，可以利用“工程”菜单中的 命令A、引用 B、部件 C、工程属性 D、加窗体25. 在窗体上画一个名称为CommonDialogl的通用对话框，一个名称为Commandl的 命令按钮。要求单击命令按钮时，打开一个保存文件的通用对话框。该窗口的标题 为Save，缺省文件名为“SaveFile”，在“文件类型”栏中显示*.txt。则能够满足 上述要求的程序是：A、Private Sub Command_C1ick() CommondialoglFileName=“Savefile” Commondialogl.filterAll Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc CommonDialoglFilterindex=2 CommonDialoglDial0gtitleSave CommonDialoglAction2 End Sub B、Private Sub Commandl_Click() CommonDialoglFileNameSaveFile CommonDiaLoglFilterA11 Files|*.*|(*.txt)|*.txt|*doc|*doc C0mmonDialoglFilterIndex1 CommonDialoglDialogTitleSave CommonDialoglAction2 End Sub C、Private Sub Cmmandl_C1ick() COmmonDialoglFileNameSave CommonDialoglFiLterA11Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc CommonDialoglFilterindex2 C0mmonDialoglDialogTitleSaveFile CommonDialoglAction2 End Sub D、Private Sub Commandl_C1ick() CommonDialoglFileNameSaveFile CommonDialoglFilterAll Files|*.*|(*.txt)|*.txt|(*.doc)|*.doc CommonDialoglFilterIndex=1 CommonDialoglDialogTitle=“Save” CommonDialoglAction1 End Sub 26. 以下叙述中错误的是：A、下拉式菜单和弹出式菜单都用菜单编辑器建立B、在多窗体程序中，每个窗体都可以建立自己的菜单系统C、除分隔线外，所有菜单项都能接收Click事件D、如果把一个菜单项的Enabled属性设置为False，则该菜单项不可用27. 在窗体中添加一个通用对话框，其名称为CommonDialog1，然后添加一个命令按钮。要求单击命令按钮时，打开一个打开文件的通用对话框。该窗口的标题为“打开”，在文件类型框中显示的是TextFiles(*.txt)。则能够满足上述要求的程序是：A、Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = allfiles(*.*)|*.*|textfiles & (*.txt)|*.txt|Batchfiles(*.bat)|*.batCommonDialog1.FilterIndex = 1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd SubB、Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = allfiles(*.*)|*.*|textfiles & (*.txt)|*.txt|Batchfiles(*.bat)|*.batCommonDialog1.FilterIndex = 2CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd SubC、Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = allfiles(*.*)|*.*|textfiles & (*.txt)|*.txt|Batchfiles(*.bat)|*.batCommonDialog1.FilterIndex =1CommonDialog1.ShowSaveMsgBox CommonDialog1.FileNameEnd SubD、Private Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = allfiles(*.*)|*.*|textfiles & (*.txt)|*.txt|Batchfiles(*.bat)|*.batCommonDialog1.FilterIndex = 2CommonDialog1.ShowSaveMsgBox CommonDialog1.FileNameEnd Sub99.二、填空题 1. 在窗体上面画一个命令按钮，然后编写如下程序：Function M(x As Integer，y As Integer)As IntegerM=IIf(Xy，x，y)End FunctionPrivate Sub Command1 Click()Dim a As Integerb As Integera=1b=2Print M(a，b)End Sub程序运行后，