[计算机类试卷]国家二级VB机试(菜单和对话框、数组)模拟试卷1及答案与解析.doc
《[计算机类试卷]国家二级VB机试(菜单和对话框、数组)模拟试卷1及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级VB机试(菜单和对话框、数组)模拟试卷1及答案与解析.doc(23页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级 VB机试(菜单和对话框、数组)模拟试卷 1及答案与解析 一、选择题 1 窗体上有一个用菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。以下叙述中错误的是( A)在设计 “粘贴 ”菜单项时,在菜单编辑器窗口中设置了 “有效 ”属性 (有 “”) ( B)菜单中的横线是在该菜单项的标题输入框中输入了一个 “一 ”(减号 )字符 ( C)在设计 “选中 ”菜单项时,在菜单编辑器窗蹦中设置了 “复选 ”属性 (有 “”) ( D)在设计该弹出菜单的主菜单项时,在菜单编辑器窗口中去掉了 “可见 ”前面的“” 2 如果一个菜单项的 Enabled属性被设置为
2、 False,则程序运行时,该菜单项 ( A)不显示 ( B)显示但无效 ( C)有效可用 ( D)不显示但有效可用 3 如果一个顶级菜单项的访问键为 D,则以下等同于单击该菜单项的操作为 ( A)按 Ctrl+D键 ( B)按 Alt+D键 ( C)按 D键 ( D)按 Shift+D键 4 以下关于菜单的叙述中,错误的是 ( A)当窗体为活动窗体时,用 Ctrl+E键可以打开菜单编辑器 ( B)把菜单项的 Enabled属性设置为 False,则可 删除该菜单项 ( C)弹出式菜单在菜单编辑器中设计 ( D)程序运行时,利用控件数组可以实现菜单项的增加或减少 5 在利用菜单编辑器设计菜单时
3、,为了把组合键 “Alt+X”设置为 “退出 (X)”菜单项的访问键,可以将该菜单项的标题设置为 ( A)退出 (X&) ( B)退出 (&X) ( C)退出 (X#) ( D)退出 (撑 X) 6 下面关于菜单的叙述中正确的是 ( A)为使选中一菜单项就可执行某种操作,要为它的 Click事件过程编写执行该操作的代码 ( B)同一级菜单中的菜单项不能同名,但不同级菜单中的菜单 项可以同名 ( C)只能使用鼠标右键把弹出式菜单弹出来 ( D)弹出式菜单中的菜单项不能再有自己的子菜单 7 以下关于通用对话框的叙述中,错误的是 ( A)在程序运行状态下,通用对话框控件是不显示的 ( B)通用对话框
4、控件是 Visual Basic的标准控件 ( C)设计时,通用对话框控件的大小是固定的,不能改变 ( D)在同一个程序中,一个通用对话框控件可以作为打开、保存等多种对话框 8 在窗体画一名为 CommonDialog1,则下列与 CommonDialog1 ShowOpen方法等效的语句是 ( A) CommonDialog1 Action=1 ( B) CommonDialog1 Action=2 ( C) CommonDialog1 Action=3 ( D) CommonDialog1 Action=4 9 下列关于通用对话框 CommonDialog1的叙述中,错误的是 ( A)只要
5、在 “打开 ”对话框中选择了文件,并单击 “打开 ”按钮,就可以将选中的文件打开 ( B)使用 CommonDialog1 ShowColor方法,可以显示 “颜色 ”对话框 ( C) CancelError属性用于控制用户单 击 “取消 ”按钮关闭对话框时,是否显示出错警告 ( D)在显示 “字体 ”对话框前,必须先设置 CommonDialog1的 Flags属性,否则会出错 10 窗体上有一个名称为 CD1的通用对话框,一个名称为 Text1的文本框,窗体的单击事件过程如下: Private Sub Form_Click() CD1 DialogTitle=“改变颜色 “: CD1 Co
6、lor=Form1 BackColor CD1 Action=3: Text1 BackColor=CD1 Color End Sub 运行程序时,单击窗体, 则以下叙述中错误的是 ( A)通用对话框的标题被改为 “改变颜色 ” ( B)通用对话框被打开为颜色对话框 ( C)若选择颜色对话框中的 “取消 ”按钮,则文本框的背景色改为窗体背景色 ( D)若选择颜色对话框中的 “确定 ”按钮,则文本框的背景色改为在颜色对话框中选中的颜色 11 利用通用对话框控件打开字体对话框的操作是 ( A)把通用对话框控件的 Action属性设置为 4 ( B)把通用对话框控件的 Action属性设置为 5 (
7、 C)调用通用对话框控件的 OpenFont方法 ( D)调用通用对话框控件的 ShowText方法 12 语句 Dim a(-3To4, 3To6)As Integer定义的数组的元素个数是 ( A) 18 ( B) 28 ( C) 21 ( D) 32 13 设有如下数组定义语句: Dim a(-1To4, 3)As Integer 以下叙述中正确的是 ( A) a数组有 18个数组元素 ( B) a数组有 20个数组元素 ( C) a数组有 24个数组元素 ( D)语法有错 14 下列数组定义中错误的是 ( A) Dim a(-5 To -3) ( B) Dim a(3 To 5) (
8、C) Dim a(-3 To -5) ( D) Dim a(-3 To 3) 15 设有如下声明语句 Option Base1 Dim art(2, -1 To 5)As Integer 则数组 art中数组元素的个数是 ( A) 10 ( B) 12 ( C) 14 ( D) 21 16 设有下面的程序段: x=InputBox(“请输入一个整数 “) ReDim a(x) For k=x To 0 Step-1 a(k)=k Next k 一般,在这段程序之前应先进行数组 a的定义。下面定义语句中正确的是 ( A) Dim a(100)As Integer ( B) Dim a()As I
9、nteger ( C) Dim a As Integer ( D) Dim a(0 To 100)As Integer 17 设有如下一段程序: Private Sub Command1_Click() Static a As Variant a=Array(“one“, “two“, “three“, “four“, “five“) Print a(3) End Sub 针对上述事件过程,以下叙述中正确的是 ( A)变量声明语句有错,应改为 Static a(5)As Variant ( B)变量声明语句有错,应改为 Static a ( C)可以正常运行,在窗体上显示 three ( D)
10、可以正常运行,在窗体上显示 four 18 在程序中要使用 Array函数给数组 arr赋初值,则以下数组变量定义语句中错误的是 ( A) Static arr ( B) Dim arr(5) ( C) Dim air() ( D) Dim air As Variant 19 有下面程序代码: Option Base1 Private Sub Command1_Click() Dim a(10)As Integer, x, b x=InputSox(“请输入一个多位整数 “) For k=1To Len(x) b=Mid(x, k, 1) a(Val(b)+1)=a(Val(b)+1)+1 N
11、extk For k=1T010 Print a(k); Next k End Sub 程序运行时,单击命令按钮 Command1,输入 2355270224,则输出是 ( A) 1 0 4 1 1 2 0 1 0 0 ( B) 0 4 1 1 2 0 1 0 0 0 ( C) 2 3 5 5 2 7 0 2 2 4 ( D) 4 2 2 0 7 2 5 5 3 2 20 在窗体上画一个名为 Commandl的命令按钮,然后编写以下程序: Private Sub Command1_Click() Dim M(10)As Integer For k=1To10 M(k)=12-k Next k
12、x=8 Print M(2+M(x) End Sub 运行程序,单击命令按钮,在窗体上显示的是 ( A) 6 ( B) 5 ( C) 7 ( D) 8 21 在窗体上画一个名称为 Text1的文本框,并编写如下程序: Option Base1 Private Sub Form_Click() Dim arr Dim Start As Integer, Finish As Integer Sum As Integer arr=Array(12, 4, 8, 16) Start=LBound(arr): Finish=UBound(arr): Sum=0 For i=Start To Finish
13、 Sum=Sum+arr(i) Next i C=Sum Finish Text1 Text=C End Sub 运行程序,单击窗体,则在文本框中显示的是 ( A) 40 ( B) 10 ( C) 12 ( D) 16 22 窗体上有一个名称为 Command1的命令按钮,并有如下程序代码: Option Base1 Private Sub Command1_Click() Dim a (3, 3) For i=1To3 For j=1To3 If i 1And j 1Then a(i, j)=a(a(i-1, j-1), a(i, j-1)+1 Else a(i, j)=i*j End If
14、 Next Next Print a(2, 2); a(3, 3) End Sub 运行程序,单击命 令按钮,窗体上显示的是 ( A) 1 3 ( B) 2 1 ( C) 2 2 ( D) 3 3 23 窗体上有一个名称为 Command1的命令按钮。要求编写程序,把文件 f1 txt的内容写到文件 f2 txt中,然后将 f1 txt删除。命令按钮的单击事件过程如下: Private Sub Command1_Click() Open“c: f1 txt“For Input As#1 Open“c: f2 txt“For Output As#2 Do Whlile Not EOF(2) Li
15、ne Input#1, str1 Print#2 str1 Loop Close Kill“c: f1 txt“ End Sub 该程序运行时发生错误,应该进行的修改是 ( A)打开 f1 txt应该使用 Output方式,打开 t2 txt应该使用 Input方式 ( B) Not EOF(2)应该改为 Not EOF(1) ( C) Line Input应改为 Get ( D) Close语句改为 Close All 24 窗体上有一个名称为 Command1的命令按钮,有程序如下: Option Base1 Private Sub Command1_Click() Dim a(10)As
16、 Integer第 1个 For For i=1To10 a(i)=Int(Rnd*100+100) Print a(i); Next x=a(i): y=x第 2个 For For i=1To10 If x a(i)Then x=a(i) If y a(i)Then y=a(i) s=s+a(i) Next Print x, y, s End Sub 关于上述程序的叙述中,正确的是 ( A)程序运行出错,第 1个 For循环之后的 x=a(i)赋值语句错 ( B)程序正常运行, x是 10个随机数中的最大值 ( C)程序正常运行, s是 10个随机数的和 ( D)程序正常运行, 10个随机数
17、的范围是 100200 25 假定有如下程序: Private Sub Form_Click() Dim a(4)As Integer, b(4)As Integer For k=0To2 a(k+1)=Val(InputBox(“请输入一个整数: “) b(3-k)=a(k+1) Nextk Print b(k) End Sub 运行程序,单击窗体,依次输入 3、 6、 9,输出结果为 ( A) 3 ( B) 6 ( C) 9 ( D) 1 26 阅读程序: Option Base1 Sub P(b()As Integer) For i=1To4 b(i)=2*i Next i End Su
18、b Private Sub Form_Click() Dim a(4)As Integer For i=1To4 a(i)=i+4 Next i P a For i=1To4 Print a(i) Next i End Sub 运行上面的程序,单击窗体,输出结果为 ( A) 2 4 6 8 ( B) 5 6 7 8 ( C) 10 12 14 16 ( D) 4 8 12 16 27 设有下面程序代码: Private Sub Command1_Click() Dim a As Variant a=Array(22, 43, 23, 56, 87, 45, 67, 12, 98, 98, 56
19、, 34, 23, 75, 64) m=a(0)n=m For k=1ToUBound(a) If a(k) m Then n=m: m=a(k) ElseIf a(k) n And a(k) m Then n=a(k) End If Next k Print n End Sub 程序运行时的输出是 ( A)数组中最大的数 (即 98) ( B)数组中最小的数 (即 12) ( C)数组中第 2大的数 (即 87) ( D)数组中第 1个数 (即 22) 28 以下关于控件数组的叙述中,正确的是 ( A)数组中各个控件具有相同的名称 ( B)数组中可包含不同类型的控件 ( C)数组中各个控件具
20、有相同的 Index属性值 ( D)数组元素不同,可以响应的事件也不同 29 假定通过复制、粘贴操作建立了一个命令按钮数组 Command1,以下说法中错误的是 ( A)数组中每个命令按钮的名称 (Name属性 )均为 Command1 ( B)若未做修改,数组中每个命令按钮的大小都一样 ( C)数组中各个命令按钮使用同一个 Click事件过程 ( D)数组中每个命令按钮的 Index属性值都相同 30 窗体上有一个名称为 Option1的单选按钮数组,程序运行时,当单击某个单选按钮时,会调用下面的事件过程 Private Sub Option1_Click(Index As Integer)
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 机试 菜单 对话框 数组 模拟 答案 解析 DOC
