2012年3月全国计算机等级考试二级Visual Basic笔试试卷及参考答案.doc

2012年 3月全国计算机等级考试二级笔试试卷及参考答案（Visual Basic语言程序设计）（考试时间90 分钟，满分100分） 一、选择题（每小题2分，共70分） 下列各题A） 、B） 、C） 、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。 （1）下列叙述中正确的是（ ） 。A）循环队列是队列的一种链式存储结构B）循环队列是队列的一种顺序存储结构C）循环队列是非线性结构D）循环队列是一种逻辑结构（2）下列叙述中正确的是A）栈是一种先进先出的线性表B）队列是一种后进先出的线性表C）栈与队列都是非线性结构D）以上三种说法都不对（3）一棵二叉树共有25个结点，其中5个是叶子结点，则度为1的结点数为A）16B）10C）6D）4（4）在下列模式中，能够给出数据库物理存储结构与物理存取方法的是A）外模式B）内模式C）概念模式D）逻辑模式（5）在满足实体完整性约束的条件下A）一个关系中应该有一个或多个候选关键字B）一个关系中只能有一个候选关键字C）一个关系中必须有多个候选关键字D）一个关系中可以没有候选关键字（6）有三个关系R、S和T如下：RSTABCABCABCa12a12b21b21d21c31c31则由关系R和S得到关系T的操作是A）自然连接B）并C）交D）差（7）软件生命周期中的活动不包括A）市场调研B）需求分析C）软件测试D）软件维护（8）下面不属于需求分析阶段任务的是A）确定软件系统的功能需求B）确定软件系统的性能需求C）需求规格说明书评审D）制定软件集成测试计划（9）在黑盒测试方法中，设计测试用例的主要根据是A）程序内部逻辑B）程序外部功能C）程序数据结构D）程序流程图（10）在软件设计中不使用的工具是A）系统结构图B）PAD图C）数据流图（DFD图）D）程序流程图（11）以下合法的VB变量名是A）caseB）name10C）t-nameD）x*y（12）设x是小于10的非负数。对此叙述，以下正确的VB表达式是A）0x10B）0=x10C）x0 And x=0 Or x=10（13 以下关于窗体的叙述中，错误的是A）窗体的Name属性用于标识一个窗体 B）运行程序时，改变窗体大小，能够触发窗体的Resize事件C）窗体的Enabled属性为False时，不能响应单击窗体的事件D）程序运行期间，可以改变Name属性值（14）下面定义窗体级变量a的语句中错误的是A）Dim a%B）Private a%C）Private a As IntegerD）Static a%（15）表达式Int(Rnd(0)*50)所产生的随机数范围是A）(0,50)B）(1,50)C）(0,49)D）(1,49)（16）设x=5，执行语句Print x = x + 10，窗体上显示的是A）15B）5C）TrueD）False（17）设有如下数组声明语句：Dim arr(-2 To 2, 0 To 3) As Integer该数组所包含的数组元素个数是A）20B）16C）15D）12（18）现有由多个单选按钮构成的控件数组，用于区别该控件数组中各控件的属性是A）NameB）IndexC）CaptionD）Value（19）设有分段函数： 以下表示上述分段函数的语句序列中错误的是A）Select Case xB）If x 0 Then Case Is 0y = 5 y = 5ElseIf x = 5 Then Case Is 0y = 2 * x y = 2 * xElse Case Elsey = x * x + 1 y = x * x + 1End IfEnd SelectC）y = IIf(x 0, 5, IIf(x = 5, 2 * x, x * x + 1)D）If x 0 Then y = 5If x = 0 Then y = 2 * xIf x 5 Then y = x * x + 1（20）设程序中有如下语句： x = InputBox(输入, 数据, 100)Print x运行程序，执行上述语句，输入5并单击输入对话框上的“取消”按钮，则窗体上输出A）0B）5C）100D）空白（21）现有如下一段程序：Private Sub Command1_Click()Dim a As Integer, s As IntegerS = 0 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 sEnd Sub执行程序，单击Command1命令按钮，执行上述事件过程，输出结果是A）9753B）3579C）35D）79（22）设有一个命令按钮Command1的事件过程以及一个函数过程，程序如下：Private Sub Command1_Click() Static x As Integer x = f(x + 5) Cls Print xEnd SubPrivate Function f(x As Integer) As Integer f = x + xEnd Function连续单击命令按钮3次，第3次单击命令按钮后，窗体上显示的计算结果是A）10B）30C）60D）70（23）以下关于菜单设计的叙述中错误的是A）各菜单项可以构成控件数组B）每个菜单项可以看成是一个控件C）设计菜单时，菜单项的“有效”未选，即，表示该菜单项不显示D）菜单项只响应单击事件（24）以下关于多窗体的叙述中，正确的是A）任何时刻，只有一个当前窗体 B）向一个工程添加多个窗体，存盘后生成一个窗体文件C）打开一个窗体时，其他窗体自动关闭D）只有第一个建立的窗体才是启动窗体（25）窗体上有一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，并有如下事件过程：Private Sub Command1_Click() CommonDialog1.DefaultExt=doc CommonDialog1.FileName=VB.txt CommonDialog1.Filter = All(*.*)|*.*|Word|*.Doc| CommonDialog1.FilterIndex = 1 CommonDialog1.ShowSaveEnd Sub运行上述程序，如下叙述中正确的是A）打开的对话框中文件“保存类型”框中显示“All(*.*)”B）实现保存文件的操作，文件名是VB.txtC）DefaultExt属性FileName属性所指明的文件类型不一致，程序出错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）ListIndexB）CaptionC）TextD）List（28） 在窗体上画两个名称分别为Text1、Text2的文本框，Text1的属性为“DataBase”，如图所示。现有如下事件过程：Private Sub Text1_Change() Text2.Text = Mid(Text1, 1, 5)End Sub运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是A）DataAB）DataBC）aDataD）aBase（29）有如下程序：Option Base 1Private Sub Command1_Click() Dim arr(10) arr = Array(10, 35, 28, 90, 54, 68, 72, 90) For Each a In arr If a 50 Then Sum = Sum + a End If Next aEnd Sub运行上述程序时出现错误，错误之处是A）数组定义语句不对，应改为Dim arrB）没有指明For循环的终值C）应在For语句之前增加Sum = 0D）Next a应改为Next（30）要求产生10个随机整数，存放在数组arr中。从键盘输入要删除的数组元素的下标，将该元素中的数据删除，后面元素中的数据依次前移，并显示删除后剩余的数据。现有如下程序：Option Base 1Private Sub Command1_Click() Dim arr(10) As Integer For i = 1 To 10 循环1 arr(i) = Int(Rnd * 100) Print arr(i); Next Print 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); NextEnd Sub程序运行后发现显示的结果不正确。应该进行的修改是A）产生随机数时不使用Int函数B）循环2的初值应为i = xC）数组定义改为Dim a(11) As IntegerD）循环3的循环终值应改为9（31）使用驱动器列表框Drive1、目录列表框Dir1、文件列表框File1时，需要设置控件的同步，以下能够正确设置两个控件同步的命令是A）Dir1.Path = Drive1.PathB）File1.Path = Dir1.PathC）File1.Path = Drive1.PathD）Drive1.Drive = Dir1.Path（32）以下关于弹出式菜单的叙述中，错误的是A）一个窗体只能有一个弹出式菜单B）弹出式菜单在菜单编辑器中建立 C）弹出式菜单的菜单名（主菜单项）的“可见”属性通常设置为False D）弹出式菜单通过窗体的PopupMenu方法显示 （33）有如下程序：Private Type stu X As String Y As IntegerEnd TypePrivate Sub Command1_Click() Dim a As stu a.X = ABCD a.Y = 12345 Print aEnd Sub程序运行时出现错误。错误的原因是A）Type定义语句没有放在标准模块中B）变量声明语句有错C）赋值语句不对D）输出语句Print不对（34）在窗体上画两个名称分别为Text1、Text2的文本框，一个名称为Label1的标签，窗体外观如图a所示。要求当改变任一个文本框的内容，就会将该文本框的内容显示在标签中，如图b所示。实现上述功能的程序如下： 图a 图bPrivate Sub Text1_Change() Call ShowText(Text1)End SubPrivate Sub Text2_Change() Call ShowText(Text2)End SubPrivate Sub ShowText(T As TextBox) Label1.Caption = 文本框中的内容是： & T.TextEnd Sub关于上述程序，以下叙述中错误的是A）ShowText过程的参数类型可以是ControlB）ShowText过程的参数类型可以是VariantC）两个过程调用语句有错，应分别改为Call ShowText(Text1.Text)、Call ShowText(Text2.Text)D）ShowText过程中的T是控件变量（35）设有打开文件的语句如下：Open text.dat For Random As #1要求把变量a中的数据保存到该文件中，应该使用的语句是A）Input #1, aB）Write #1, aC）Put #1, aD）Get #1, a二、填空题(每空2分，共30 分) 请将每空的正确答案写在答题卡【l】至【15】序号的横线上，答在试卷上不得分。（1）在长度为n的顺序存储的线性表中删除一个元素，最坏情况下需要移动表中的元素个数为n-1。（2）设循环队列的存储空间为Q(1:30)，初始状态为front=rear=30，现经过一系列入队与退队运算后，front=16，rear=15，则循环队列中有29个元素。（3）数据库管理系统提供的数据语言中，负责数据的增、删、改和查询的是数据库操纵系统（或者DMS）。（4）在将E-R图转换到关系模式时，实体和联系都可以表示成关系。（5）常见的软件工程方法有结构化方法和面向对象方法，类、继承以及多态性等概念属于面向对象方法。（6）下面的事件过程执行时，可以把Text1文本框中的内容写到文件“file1.txt”中去。请填空。Private Sub Command1_Click() Open file1.txt For output As #1 Print #1 , Text1.Text Close #1End Sub（7）设窗体上有一个名称为Label1的标签，程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在Label1标签中；单击鼠标右键则停止实时显示，并将标签中内容清除。下面的程序可实现这一功能，请填空。Dim down As BooleanPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Select Case Button Case 1 down = True Case 2 down = False End SelectEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If down = True（或down）Then Label1.Caption （或 Label1）= X= & X & Y= & Y Else Label1.Caption = End IfEnd Sub（8）窗体上有List1、List2两个列表框，程序运行时，在两个列表框中分别选中1个项目，如图a所示，单击名称为Command1的“交换”按钮