VB试和答案

《VB试和答案》由会员分享，可在线阅读，更多相关《VB试和答案（12页珍藏版）》请在金锄头文库上搜索。

1、2012 年 3 月笔试真卷及答案详解 第 1 页（共 12 页） 2012 年 3 月全国计算机等级考试二级笔试试卷 Visual Basic 语言程序设计 （考试时间 90 分钟，满分 100 分） 一、选择题（每小题 2 分，共 70 分） 下列各题 A） 、B） 、C） 、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答 题卡相应位置上，答在试卷上不得分。 （1）下列叙述中正确的是 A）循环队列是队列的一种链式存储结构 B）循环队列是队列的一种顺序存储结构 C）循环队列是非线性结构 D）循环队列是一种逻辑结构 （2）下列叙述中正确的是 A）栈是一种先进先出的线性表 B）队列是

2、一种后进先出的线性表 C）栈与队列都是非线性结构 D）以上三种说法都不对 （3）一棵二叉树共有 25 个结点，其中 5 个是叶子结点，则度为 1 的结点数为 A）16 B）10 C）6 D）4 （4）在下列模式中，能够给出数据库物理存储结构与物理存取方法的是 A）外模式 B）内模式 C）概念模式 D）逻辑模式 （5）在满足实体完整性约束的条件下 A）一个关系中应该有一个或多个候选关键字 B）一个关系中只能有一个候选关键字 C）一个关系中必须有多个候选关键字 D）一个关系中可以没有候选关键字 （6）有三个关系 R、S 和 T 如下： R S T 则由关系 R 和 S 得到关系 T 的操作是 A）

3、自然连接 B）并 C）交 D）差 （7）软件生命周期中的活动不包括 A）市场调研 B）需求分析 C）软件测试 D）软件维护 （8）下面不属于需求分析阶段任务的是 A）确定软件系统的功能需求 B）确定软件系统的性能需求 C）需求规格说明书评审 A B C a 1 2 b 2 1 c 3 1 A B C a 1 2 d 2 1 A B C b 2 1 c 3 1 2012 年 3 月笔试真卷及答案详解 第 2 页（共 12 页） D）制定软件集成测试计划 （9）在黑盒测试方法中，设计测试用例的主要根据是 A）程序内部逻辑 B）程序外部功能 C）程序数据结构 D）程序流程图 （10）在软件设计中不适

4、用的工具是 A）系统结构图 B）PAD 图 C）数据流图（DFD 图） D）程序流程图 （11）以下合法的 VB 变量名是 A）case B）name10 C）t-name D）x*y （12）设 x 是小于 10 的非负数。对此陈述，以下正确的 VB 表达式是 A）0x=0 Or x5 以下表示上述分段函数的语句序列中错误的是 A）Select Case x B）If x0 y=2*x y=2*x Else Case Else y=x*x+1 y=x*x+1 End If End Select C）y=IIf(x=0 Then y=2*x If x5 Then y=x*x+1 2012 年

5、3 月笔试真卷及答案详解 第 3 页（共 12 页） （20）设程序中有如下语句： x=InputBox(“输入“,“数据“,100) Print x 运行程序，执行上述语句，输入 5 并单击输入对话框上的“取消”按钮，则窗体上输出 A）0 B）5 C）100 D）空白 （21）现有如下一段程序： Option Base 1 Private Sub Command1_Click() Dim a a = Array(3, 5, 7, 9) x = 1 For i = 4 To 1 Step -1 s = s + a(i) * x x = x * 10 Next Print s End Sub 执

6、行程序，单击 Command1 命令按钮，执行上述事件过程，输出结果是 A）9753 B）3579 C）35 D）79 （22）设有一个命令按钮 Command1 的事件过程以及一个函数过程。程序如下： Private Sub Command1_Click() Static x As Integer x = f(x + 5) Cls Print x End Sub Private Function f(x As Integer) As Integer f = x + x End Function 连续单击命令按钮 3 次，第 3 次单击命令按钮后，窗体上显示的计算结果是 A）10 B）30 C

7、）60 D）70 （23）以下关于菜单设计的叙述中错误的是 A）各菜单项可以构成控件数组 B）每个菜单项可以看成是一个控件 C）设计菜单时，菜单项的“有效”未选，即，表示该菜单项不显示 D）菜单项只响应单击事件 （24）以下关于多窗体的叙述中，正确的是 A）任何时刻，只有一个当前窗体 B）向一个工程添加多个窗体，存盘后生成一个窗体文件 C）打开一个窗体时，其他窗体自动关闭 D）只有第一个建立的窗体才是启动窗体 （25） 窗体上有一个名称为 CommonDialog1 的通用对话框， 一个名称为 Command1 的命令按钮， 并有如下事件过程： Private Sub Command1_Cli

8、ck() CommonDialog1.DefaultExt=“doc“ CommonDialog1.FileName=“VB.txt“ CommonDialog1.Filter=“All(*.*)|*.*|Word|*.Doc|“ 2012 年 3 月笔试真卷及答案详解 第 4 页（共 12 页） CommonDialog1.FilterIndex=1 CommonDialog1.ShowSave End Sub 运行上述程序，如下叙述中正确的是 A）打开的对话框中文件“保存类型”框中显示“All(*.*)” B）实现保存文件的操作，文件名是 VB.txt C）DefaultExt 属性 Fi

9、leName 属性所指明的文件类型不一致，程序出错 D）对话框的 Filter 属性没有指出 txt 类型，程序运行出错 （26）设程序中有如下数组定义和过程调用语句： Dim a(10) As Integer Call p(a) 如下过程定义中，正确的是 A）Private Sub p(a As Integer) B）Private Sub p(a() As Integer) C）Private Sub p(a(10) As Integer) D）Private Sub p(a(n) As Integer) （27）若要获得组合框中输入的数据，可使用的属性是 A）ListIndex B）Ca

10、ption C）Text D）List （28）在窗体上画两个名称分别为 Text1、Text2 的文本框，Text1 的 Text 属性为“DataBase” ， 如图所示。 现有如下事件过程： Private Sub Text1_Change() Text2.Text = Mid(Text1, 1, 5) End Sub 运行程序，在文本框 Text1 中原有字符之前输入 a，Text2 中显示的是 A）DataA B）DataB C）aData D）aBase （29）有如下程序 Option Base 1 Private Sub Command1_Click() Dim arr(10)

11、 arr=Array(10,35,28,90,54,68,72,90) For Each a In arr If a50 Then Sum=Sum+a End If Next a End Sub 运行上述程序时出现错误，错误之处是 A）数组定义语句不对，应改为 Dim arr B）没有指明 For 循环的终值 C）应在 For 语句之前增加 Sum=0 D）Next a 应改为 Next 2012 年 3 月笔试真卷及答案详解 第 5 页（共 12 页） （30）要求产生 10 个随机整数，存放在数组 arr 中。从键盘输入要删除的数组元素的下标，将 该元素中的数据删除，后面元素中的数据依次前

12、移，并显示删除后剩余的数据。现有如下 程序： Option Base 1 Private Sub Command1_Click() Dim arr(10) AS Integer For i=1 To 10 循环 1 arr(i)=Int(Rnd*100) Print arr(i); Next X=InputBox(“输入 1-10 的一个整数：“) For i=x+1 To 10 循环 2 arr(i-1)=arr(i) Next For i=1 To 10 循环 3 Print arr(i); Next End Sub 程序运行后发现显示的结果不正确。应该进行的修改是 A）产生随机数时不使用

13、 Int 函数 B）循环 2 的初值应为 i=x C）数组定义改为 Dim a(11) As Integer D）循环 3 的循环终值应改为 9 （31）使用驱动器列表框 Drive1、目录列表框 Dir1、文件列表框 File1 时，需要设置控件的同步。 以下能够正确设置两个控件同步的命令是 A）Dir1.Path=Drive1.Path B）File1.Path=Dir1.Path C）File1.Path=Drive1.Path D）Drive1.Drive=Dir1.Path （32）以下关于弹出式菜单的叙述中，错误的是 A）一个窗体只能有一个弹出式菜单 B）弹出式菜单在菜单编辑器中建

14、立 C）弹出式菜单的菜单名（主菜单项）的“可见”属性通常设置为 False D）弹出式菜单通过窗体的 PopupMenu 方法显示 （33）有如下程序 Private Type stu X As String Y As Integer End Type Private Sub Command1_Click() Dim a As stu a.X=“ABCD“ a.Y=12345 Print a End Sub 程序运行时出现错误。错误的原因是 A）Type 定义语句没有放在标准模块中 B）变量声明语句有错 C）赋值语句不对 D）输出语句 Print 不对 2012 年 3 月笔试真卷及答案详解

15、第 6 页（共 12 页） （34）在窗体上画两个名称分别为 Text1、Text2 的文本框，一个名称为 Label1 的标签，窗体外 观如图 a 所示。要求当改变任一个文本框的内容，就会将该文本框的内容显示在标签中， 如图 b 所示。实现上述功能的程序如下： 图 a 图 b Private Sub Text1_Change() Call ShowText(Text1) End Sub Private Sub Text2_Change() Call ShowText(Text2) End Sub Private Sub ShowText(T As TextBox) Label1.Caption = “文本框中的内容是：“ & t.Text End Sub 关于上述程序，以下叙述中错误的是 A）ShowText 过程的参数类型可以是 Control B）ShowText 过程的参数类型可以是 Variant C）两个过程调用语句有错，应分别改为Call ShowText(Text1.Text)、Call ShowText(Text2.Text) D）ShowText 过程中的 T 是控件变量 （35）设有打开文件的语句如下： Open “text.dat“ For Random As #1 要求把变量 a 中的数据保