【计算机类职业资格】菜单与对话框(二)及答案解析.doc

资源描述

1、菜单与对话框(二)及答案解析(总分：158.00，做题时间：90 分钟)一、选择题(总题数：32，分数：64.00)1.下列控件不支持 MouseDown 事件的是_。（分数：2.00）A.HSrcollBarB.Command ButtonC.PictureBoxD.TextBox2.显示打印对话框需要使用 CommonDialog 控件的方法为_。（分数：2.00）A.ShowOpenB.ShowPrinterC.ShowColorD.ShowFont3.下列关于菜单的说法中，错误是_。（分数：2.00）A.每个菜单项都是一个控件，与其他控件一样也有其属性和事件B.除了 Click 事件之

2、外，菜单项不可能影响其他事件C.菜单项的索引号必须从 1 开始D.菜单项的索引号可以不连续4.执行下列程序后，在文本框中输入字符“d”，输出结果为_。Private Sub Form_Load()Text1=“End SubPrivate Sub Text1_Change()Print Text1.TextEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Prin

3、t Chr(KeyAscii)End Sub（分数：2.00）A.DdDB.ddDC.dDdD.Ddd5.使用通用对话框控件打开字体对话框时，如果要在字体对话框中列出可用的屏幕字体和打印字体，必须设置通用对话框控件的 Flags 属性为_。（分数：2.00）A.0B.1C.2D.36.MsgBox 函数的 Buttons 参数的表达错误的是_。（分数：2.00）A.一个 Visual Basic 的内部常量B.一个用加号连接着 3 个 Visual Basic 内部常量的表达C.一个整数值D.一个用加号连接着 3 个标号值的表达式7.使用通用对话框控件打开字体对话框时，如果要在字体对话框中显示

4、样式和颜色，必须设置通用对话框控件的 Flags 属性为_。（分数：2.00）A.128B.225C.256D.1278.窗体上有一个图片框和一个命令按钮(拖动模式为自动)，执行程序后，拖动按钮经过图片框时输出结果为Private Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)Static a As BooleanIf Not a ThenPrint“AA“a=TrueEnd IfEnd SubPrivate Sub Picture1_MouseMove(Button As

5、 Integer, Shift As Integer, X As Shingle, Y As Single)Static b As BooleanIf Not b ThenPrint“BB“b=TrueEnd IfEnd Sub（分数：2.00）A.AABBB.BBAAC.AAD.BB9.通用对话框 MsgBox 作为函数的返回值一般为_。（分数：2.00）A.IntegerB.StringC.VariantD.Long10.在窗体上已经添加了名为 CommonDialog 控件，用 Show 方法显示“打开”对话框的正确方法是_。（分数：2.00）A.Show.OpenB.ShowOpenC

6、.CommonDialog1.Show.OpenD.CommonDialog1.ShowOpen11.要使用打印对话框，应首先在“部件”对话框中选择控件_。（分数：2.00）A.MsgBoxB.MicroSoft Common Dialog 6.0C.MicroSoft Comm Control 6.0D.InputBox12.下列说法正确的是_。（分数：2.00）A.KeyDown 事件在 KeyPress 事件前发生B.KeyPress 过程不可以使用 Call 语句来调用C.MouseUp 事件在 Click 事件之后发生D.控件响应 Click 事件后不再响应 MouseUp 事件13

7、.关于自定义对话框概念的说法中，错误的是_。（分数：2.00）A.建立自定义对话框时必须执行添加窗体的操作B.自定义对话框实际上是 Visual Basic 的窗体C.在窗体上还要使用其他控件才能组成自定义对话框D.自定义对话框不一定要有与之对应的事件过程14.下列不能打开菜单编辑器的操作是_。（分数：2.00）A.单击工具栏中的“菜单编辑器”按钮B.单击“工具”下拉菜单中的“菜单编辑器”命令C.从右击鼠标弹出的快捷菜单中单击“菜单编辑器”命令D.单击“窗口”下拉菜单中的“菜单编辑器”命令15.以下关于菜单的叙述中，错误的是_。（分数：2.00）A.在程序运行过程中可以添加或减少菜单项B.如果

8、把一个菜单项的 Enabled 属性设置为 False，则可删除该菜单项C.弹出式菜单在菜单编辑器中设计D.利用控件数级可以实现菜单项的增加或减少16.在用通用对话框控件建立“打开”或“保存”文件对话框时，如果需要指定文件列表框所列出的文件类型是文本文件(即.txt 文件)，则正确的描述格式是_。（分数：2.00）A.“text(.txt) | (*.txt)“B.“文本文件(.txt) | (.txt)“C.“text(.txt) FFFFF | | (*.txt)“D.“text(.txt)(*.text)“17.鼠标移动经过控件时，将触发控件的_事件。（分数：2.00）A.MouseDo

9、wnB.MouseUpC.MouseMoveD.Click18.在窗体上建立通用对话框必须先将_添加到工具箱中。（分数：2.00）A.Data 控件B.Form 控件C.CommonDialog 控件D.VBComboBox 控件19.打开菜单编辑器的快捷键是_。（分数：2.00）A.Ctrl+EB.Shift+EC.Alt+ED.Tab+E20.关于自定义对活框的说法中，正确的是_。（分数：2.00）A.自定义对话框中必须有命令按钮B.定义了自定义对话框，对话框的外观和特征在运行过程中不能改变C.自定义对话框是模式的D.自定义对话框只能用来接收数据21.设已经在窗体上添加了一个通用对话框控件

11、执行下列程序，按下回车键后输出结果为_。Option Base 1Private Sub From_KeyPress(KeyAscii As Integer)a=Array(237, 126, 87, 48, 498)m1=a(1)m2=1If KeyAscii=13 ThenFor i=2 To 5If a(i) m1 Thenm1=a(i)m2=1End IfNext iEnd IfPrint m1Print m2End Sub（分数：2.00）A.484B.2371C.4985D.498423.在用菜单编辑器设计菜单时，必须输入的项是_。（分数：2.00）A.快捷键B.标题C.索引D.名

12、称24.对话框 Filter 属性为“Text(*.txt) | *.txt | Pictures(*.bmp，*ico) | *.bmp；*ico”，若在使用 ShowOpen 方法时默认过滤器为*.bmp；*.ico，需将对话框的 FilterIndex 属性设置为_。（分数：2.00）A.1B.2C.(*.bmp; *.ico) | *.bmp; *.icoD.*.bmp; *.ico25.窗体上有文本框 Text1，执行下列程序后在文本框输入 123abc，单击按钮后输出结果为Private Sub From_Load()Text1.Text=“End SubPrivate Sub T

13、ext1_KeyPress(KeyAscii As Integer)Char=Chr(KeyAscii)KeyAscii=Asc(UCase(Char)Eud SubPrivate Sub Command1_Click()Print Text1.TextEnd Sub（分数：2.00）A.123ABCB.ABCC.!#ABCD.123abc26.执行下列程序，在文本框中输入字符“a”，则输出结果为_。Private Sub Form_Load()Text1.Text=“End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As I

14、nteger)Text1.Text=KeyCodePrint Text1.TextEnd Sub（分数：2.00）A.aB.65C.AD.9727.假定有个菜单项，名称为 MenuItem，为了运行时使该菜单项失效(变灰)，应使用的语句为_。（分数：2.00）A.MenuItem.Enabled=FalseB.MenuItem.Enabled=TrueC.MenuItem.Visible=FalseD.MenuItem.Visibli=True28.以下叙述中错误的是_。（分数：2.00）A.在同一窗体的菜单项中，不允许出现标题相同的菜单项B.在菜单的标题栏中，“ *.ico) | *.bmp

15、; *.icoD.*.bmp; *.ico解析：25.窗体上有文本框 Text1，执行下列程序后在文本框输入 123abc，单击按钮后输出结果为Private Sub From_Load()Text1.Text=“End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Char=Chr(KeyAscii)KeyAscii=Asc(UCase(Char)Eud SubPrivate Sub Command1_Click()Print Text1.TextEnd Sub（分数：2.00）A.123ABC B.ABCC.!#ABCD.123abc解

16、析：26.执行下列程序，在文本框中输入字符“a”，则输出结果为_。Private Sub Form_Load()Text1.Text=“End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Text1.Text=KeyCodePrint Text1.TextEnd Sub（分数：2.00）A.aB.65 C.AD.97解析：27.假定有个菜单项，名称为 MenuItem，为了运行时使该菜单项失效(变灰)，应使用的语句为_。（分数：2.00）A.MenuItem.Enabled=False B.MenuItem

17、.Enabled=TrueC.MenuItem.Visible=FalseD.MenuItem.Visibli=True解析：28.以下叙述中错误的是_。（分数：2.00）A.在同一窗体的菜单项中，不允许出现标题相同的菜单项 B.在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键C.在程序运行过程中，可以重新设置菜单的 Visible 属性D.弹出式菜单也在菜单编辑器中定义解析：29.设在菜单编辑器中定义了一个菜单项，名为 menu1。为了在运行时隐藏该菜单项，应使用的语句是_。（分数：2.00）A.menu1.Enabled=TrueB.menu1.Enabled=FalseC.

18、menu1.Visible=TrueD.menu1.Visible=False 解析：30.下列函数调用语句正确的是_。（分数：2.00）A.x=MsgBox“关闭窗口前应先存盘!“B.MsgBox“关闭窗口前应先存盘!“，6C.MsgBox(“关闭窗口前应先存盘!“) D.x=MsgBox(“是否继续?“，“询问对话框“)解析：31.关于通用对话框概念的说法中，错误的是_。（分数：2.00）A.是用系统提供的控件制作的标准对话框 B.是由用户定义的自定义对话框C.是执行某函数弹出的对话框D.可以由用户定义，也可以是通过执行某种特殊函数弹出的对话框解析：32.以下叙述中错误的是_。（分数：2.

19、00）A.在程序运行时，通用对话框控件是不可见的B.在同一个程序中，用不同的方法(如 ShowOpen 或 ShowSave 等)打开的通用对话框具有不同的作用C.调用通用对话框控件的 ShowOpen 方法，可以直接打开该通用对话框中指定的文件 D.调用通用对话框控件的 ShowColor 方法，可以打开颜色对话框解析：二、填空题(总题数：32，分数：94.00)33.菜单中的分隔条是一种菜单控件，其标题是 1，不响应 2 事件，不能被选中。（分数：4.00）填空项 1:_ （正确答案：-）填空项 1:_ （正确答案：Click）解析：34.为显示弹出式菜单，可以使用 1 方法。（分数：2.

20、00）填空项 1:_ （正确答案：PopupMenu）解析：35.若已在窗体中加入一个通用对话框，要求在运行时，通过 ShowOpen 打开对话框时只显示扩展名为.doc的文件，则对通用对话框的 Filter 属性正确的设置是 1。（分数：2.00）填空项 1:_ （正确答案：“(*DOC) | *.DOC”）解析：36.使通用对话框 C1 显示为一个标准的颜色对话框，应使用语句 1，使通用对话框 C1 显示为一个标准的字体对话框，应使用语句 2。（分数：4.00）填空项 1:_ （正确答案：C1.ShowColor）填空项 1:_ （正确答案：C1.ShowFont）解析：37.下列程序的作

21、用是使用字体对话框修改文本框字体的样式，完成下列程序。Private Sub Command1_Click()CommonDialog1.CanceIError=TrueOn ErrorGo To ErrHandlerCommonDialog1.Flags=vbCFEffects Or vbCFBothCommonDialog1._Text1.Font Name=CommonDialog1.FontNameText1.Font.Size=_Text1.Font.Bold=CommonDialog, FontBoldText1.Font.Italic=CommonDialog1Fontltali

22、cText1.Font.Underline=_Text1.FontStrikethru=CommonDialog1.FontStrikethruExit SubErrHandler：End Sub（分数：6.00）填空项 1:_ （正确答案：ShowFont；CommonDialog1.FontSize；CommonDia-log1.FontUnderline）解析：38.在 Visual Basic 中可以建立 1 菜单和 2 菜单。（分数：4.00）填空项 1:_ （正确答案：下拉式）填空项 1:_ （正确答案：弹出式）解析：39.菜单编辑器可以分为 3 部分，即 1、 2、 3。（分数：

23、6.00）填空项 1:_ （正确答案：数据区）填空项 1:_ （正确答案：编辑区）填空项 1:_ （正确答案：菜单项显示区）解析：40.如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为 1。（分数：2.00）填空项 1:_ （正确答案：“-”）解析：41.在菜单编辑器中，菜单项后面 3 个小点的含义是 1。（分数：2.00）填空项 1:_ （正确答案：下一级菜单）解析：42.Visual Basic 中的对话框分为 3 类，即 1、 2、 3。（分数：6.00）填空项 1:_ （正确答案：预定义对话框）填空项 1:_ （正确答案：自定义对话框）填空项 1:_ （正确答案：通用对话框）解

24、析：43.为了把通用对话框控件添加到工具箱中，应在 1 对话框的“控件”选项卡中选择 2。（分数：4.00）填空项 1:_ （正确答案：“部件”；Microsoft Common Dialog Control 6.0）解析：44.菜单编辑器的“标题”选项对应于菜单控件的 1 属性。（分数：2.00）填空项 1:_ （正确答案：Caption）解析：45.菜单编辑器的“名称”选项对应于菜单控件的 1 属性。（分数：2.00）填空项 1:_ （正确答案：Name）解析：46.菜单编辑器的“索引”选项对应于菜单控件的 1 属性。（分数：2.00）填空项 1:_ （正确答案：Index）解析：47.菜

25、单编辑器的“复选”选项对应于菜单控件的 1 属性。（分数：2.00）填空项 1:_ （正确答案：Checked）解析：48.菜单编辑器的“有效”选项对应于菜单控件的 1 属性。（分数：2.00）填空项 1:_ （正确答案：Enabled）解析：49.菜单编辑器的“可见”选项对应于菜单控件的 1 属性。（分数：2.00）填空项 1:_ （正确答案：Visible）解析：50.将通用对话框 CommonDialog1 的类型设置为“另存为”对话框，可调用该控件的 1 方法。（分数：2.00）填空项 1:_ （正确答案：ShowSave）解析：51.通常用户自己编写对话框，窗体最好是大小不变的，应该

26、设置窗体的 1 属性。（分数：2.00）填空项 1:_ （正确答案：BorderStyle）解析：52.将通用对话框控件 CommonDialog1 显示为颜色对话框，可以改变该控件的 1 属性。（分数：2.00）填空项 1:_ （正确答案：Action）解析：53.某顶级菜单项的快捷键字符为 F， 1 操作等同于单击该菜单项。（分数：2.00）填空项 1:_ （正确答案：同时按下 Alt 和 F 键）解析：54.通常使用 1 方法来显示自定义对话框。（分数：2.00）填空项 1:_ （正确答案：Show）解析：55.菜单项(Find)，其访问键为 Alt+F，则在设计时应将 1。（分数：2.

27、00）填空项 1:_ （正确答案：Caption 属性设置为&Find）解析：56.通用对话框控件可通过调整其 Action 属性而改变成各种实用的对话框，但它不能改变成 1 对话框。（分数：2.00）填空项 1:_ （正确答案：设詈）解析：57.窗体上有两个图片框为 Picture1 和 Picture2，当把 Picture1 拖到 Picture2 上时将 Picture2 中的图片改为 Picture1 中的图片，完成下列程序。Private Sub Picture2_(Source As Control, X As Single, Y As Single, State As Inte

28、ger)Picture2.Picture=_End Sub（分数：4.00）填空项 1:_ （正确答案：DragOver；Source.Picture(或 Picture1.Pictrue)）解析：58.下列过程的功能是：在对多个文本框进行输入时，对第 1 个文本框(text1)输入完毕后用回车键使焦点跳到第 2 个文本框(text2)，而不是用 Tab 键来切换。请完成该程序。Private Sub Text1_KeyDown(Keycode As Integer , Shift As Integer)If_ThenText2._End IfEnd Sub（分数：4.00）填空项 1:_ （

29、正确答案：KeyCode=vbKeyReturn；SetFocus）解析：59.下列程序执行后，在窗体上按下 Alt+Ctrl+A 键的输出结果为_。Private Sub Form_KeyDown(Keycode As Integer, Shift As Integer)Print shiftEnd Sub（分数：2.00）填空项 1:_ （正确答案：6）解析：60.窗体上有一个命令按钮，执行程序后，在按钮上单击鼠标左键的输出结果为_，在按钮上单击鼠标右键的输出结果为_。Private Sub Command1_Click()Print“B“：End SubPrivate Sub Comma

30、nd1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Print“A“：End Sub（分数：4.00）填空项 1:_ （正确答案：AB；A）解析：61.窗体 KeyUp 事件过程如下，启动程序后按小写字母“a”，输出结果为_。Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode)End Sub（分数：2.00）填空项 1:_ （正确答案：A）解析：62.下列程序的功能是，当一个 TextBox

31、控件被拖过一个 PictureBox 控件时，指针从默认的箭头变为特定的图标，当 Text-Box 控件被拖到其他地方时，指针恢复到默认的状态。请完成下列程序。Private Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)Select Case StateCase vbEnterSource.Draglcon=LoadPicture(“JCONS/ARROWS/POINT03.ICO“)Case_Source.Draglcon=LoadPicture()End Select

32、End SubPrivate Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)Source.Draglcon=_End Sub（分数：4.00）填空项 1:_ （正确答案：vbLeave；LoadPicture ()）解析：63.在窗体上设计如下两个事件过程：Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Int

33、eger)Print Chr(KeyAscii)End Sub在程序运行后，按“a”键(不按住 Shift 键)，则窗体上输出的结果是_。（分数：2.00）填空项 1:_ （正确答案：A a）解析：64.设计一个窗体，在其上设计如下事件过程：Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y A.s Single)If Button=1 ThenPrint“AAAAAAAA“Elself Button=2 ThenPrint“BBBBBBBB“End IfEnd Sub程序运行后，在窗体上单击鼠标左键输出结果为_，单击鼠标右键输出结果为_。（分数：4.00）填空项 1:_ （正确答案：AAAAAAAA；BBBBBBBB）解析：

展开阅读全文