2011年9月计算机等级考试二级VB模拟试题1及答案

知识点复习：形参：指出现在Sub 和Function过程形参表中的变量名、数组名，过程被调用前，没有分配内存，其作用是说明自变量的类型和形态以及在过程中的角色。形参可以是：

1）除定长字符串变量之外的合法变量名；

2）后面跟括号的数组名。

实参：是在调用Sub 和Function过程时，传送给相应过程的变量名、数组名、常数或表达式。在过程调用传递参数时，形参与实参是按位置结合的，形参表和实参表中对应的变量名可以不必相同，但位置必须对应起来。

51CTO编辑向您推荐：《2011年9月全国计算机等级考试试题及答案》及相关模拟题。

一 、选择题

(1) 根据数据结构中各数据元素之间前后件关系的复杂程度，一般将数据结构分成
　　A) 动态结构和静态结构
　　B) 紧凑结构和非紧凑结构
　　C) 线性结构和非线性结构
　　D) 内部结构和外部结构
　　正确答案: C

(2) 设一棵二叉树中有3个叶子结点，有8个度为1的结点，则该二叉树中总的结点数为
　　A) 12
　　B) 13
　　C) 14
　　D) 15
　　正确答案: B

(3) 在下列几种排序方法中，要求内存量最大的是
　　A) 插入排序
　　B) 选择排序
　　C) 快速排序
　　D) 归并排序
　　正确答案: D

(4) 下列叙述中，不属于结构化程序设计方法的主要原则的是
　　A) 自顶向下
　　B) 由底向上
　　C) 模块化
　　D) 限制使用goto语句
　　正确答案: B

(5) 下列不属于软件调试技术的是
　　A) 强行排错法     B) 集成测试法    C) 回溯法    D) 原因排除法
　　正确答案: B

(6) 为了避免流程图在描述程序逻辑时的灵活性，提出了用方框图来代替传统的程序流程图，通常也把这种图称为
　　A) PAD图
　　B) N-S图
　　C) 结构图
　　D) 数据流图
　　正确答案: B

(7) 软件复杂性度量的参数包括
　　A) 效率        B) 规模        C) 完整性            D) 容错性
　　正确答案: B

(8) 下列叙述中，不属于数据库系统的是
　　A) 数据库
　　B) 数据库管理系统
　　C) 数据库管理员
　　D) 数据库应用系统
　　正确答案: B

(9) 数据库系统的核心是
　　A) 数据库
　　B) 数据库管理系统
　　C) 数据模型
　　D) 软件工具
　　正确答案: B

(10) 视图设计一般有3种设计次序，下列不属于视图设计的是
　　A) 自顶向下
　　B) 由外向内
　　C) 由内向外
　　D) 自底向上

正确答案: B

(11) 下列说法错误的是
　　A) 标准模块的扩展名是.bas
　　B) 标准模块由程序代码组成
　　C) 标准模块只用来定义一些通用的过程
　　D) 标准模块不附属于任何一个窗体
　　正确答案: C

(12) 如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性
　　A) Value
　　B) Visible
　　C) Default
　　D) Enabled
　　正确答案: D

(13) 在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是
　　A) 设置Enabled的值为True
　　B) 设置TabIndex的值为1
　　C) 设置TabIndex的值为0
　　D) 设置Index的值为0
　　正确答案: C

(14) 下列几项中，属于合法的日期型常量的是
　　A) "10/10/02"
　　B) 10/10/02
　　C) {10/10/02}
　　D) #10/10/02#
　　正确答案: D

(15) 下列程序段的执行结果为
　　A=2
　　B=5
　　If A * B < 1 Then B=B - 1 Else B=-1
　　Print B - A > 0
　　A) True
　　B) False
　　C) -1
　　D) 1
　　正确答案: B

(16) 以下语句的输出结果是
　　a=Sqr(26)
　　Print Format$ (a, "$####.###")
　　A) $5.099
　　B) 5.099
　　C) 5099
　　D) $0005.099
　　正确答案: A

(17) 标签控件能够显示文本信息，决定其文本内容的属性是
　　A) Alignment
　　B) Caption
　　C) Visible
　　D) BorderStyle
　　正确答案: B

(18) 在属性窗口中，加载指定的图形放入当前对象中的属性是
　　A) CurrentY
　　B) Picture
　　C) CurrentX
　　D) Caption
　　正确答案: B

(19) 在使用应用程序时，常常用作在单击时执行指定的操作的控件是
　　A) 命令按钮
　　B) 图片框
　　C) 复选框
　　D) 单选按钮
　　正确答案: A

(20) 当直线或形状的BorderStyle属性设置为1时，控件是
　　A) 虚线
　　B) 点线
　　C) 不可见
　　D) 实线
　　正确答案: D

(21) 通过设置何属性可以改变所画图形的形状？
　　A) Shape
　　B) Index
　　C) Enabled
　　D) Height
　　正确答案: A

(22) 在窗体上画一个命令按钮，然后编写如下事件过程：

　　Private Sub Command1_Click()  
　　s=1  
　　Do 
　　s=(s + 1) * (s + 2)  
　　Number=Number + 1  
　　Loop Until s >=30  
　　Print Number, s  
　　End Sub 

　　程序运行后，输出的结果是
　　A) 2 3
　　B) 2 56
　　C) 5 12
　　D) 10 20
　　正确答案: B

(23) 下列程和序段的执行结果为

　　x=Int(Rnd() + 9)  
　　Select Case x  
　　Case 10  
　　Print "excellent" 
　　Case 9  
　　Print "good" 
　　Case 8  
　　Print "pass" 
　　Case Else 
　　Print "fail" 
　　End Select 

　　A) excellent
　　B) good
　　C) pass
　　D) fail
　　正确答案: B

(24) 下列程序段的执行结果为
　　a=75
　　If a > 60 Then Score=1
　　If a > 70 Then Score=2
　　If a > 80 Then Score=3
　　If a > 90 Then Score=4
　　Print " Score="; Score
　　A) Score＝1
　　B) Score＝2
　　C) Score＝3
　　D) Score＝4
　　正确答案: B

(25) 下列程序段的执行结果为
　　I=1
　　x=5
　　Do
　　I=I + 1
　　x=x + 2
　　Loop Until I >=7
　　Print "I="; I
　　Print "x="; x
　　A) I＝4   x＝5
　　B) I＝7   x＝15
　　C) I＝6   x＝8
　　D) I＝7   x＝17
　　正确答案: D

(26) 下面的程序的运行结果是
　　a=1
　　b=1
　　Do
　　a=a^2
　　b=b + 1
　　Loop Until b > 5
　　Print "k="; a; Spc(4) ; "b="; b + a
　　A) k＝7  b＝14
　　B) k＝6  b＝6
　　C) k＝4  b＝8
　　D) k＝1  b＝7
　　正确答案: D

(27) 单击命令按钮，下列程序的执行结果为

　　Private Sub Command1_Click()  
　　Dim x As Integer, y As Integer 
　　x=32: y=42  
　　Call PCS(x, y)  
　　Print x; y  
　　End Sub 
　　Public Sub PCS(Byval n As Integer, ByVal m As Integer)  
　　n=n Mod 10+1  
　　m=m Mod 10+1  
　　End Sub 

　　A) 32 42
　　B) 2 32
　　C) 2 3
　　D) 12 3
　　正确答案: A

(28) 下列程序的执行结果为

　　Private Sub Command1_Click()  
　　Dim s1 As String, s2 As String 
　　s1="abcd" 
　　Call Transfer(s1, s2)  
　　Print s2  
　　End Sub 
　　Private Sub Transfer (ByVal xstr As String, ystr As String)  
　　Dim tempstr As String 
　　i=Len(xstr)  
　　Do While i >=1  
　　tempstr=tempstr + Mid(xstr, i, 1)  
　　i=i - 1  
　　Loop 
　　ystr=te mpstr  
　　End Sub 

　　A) dcba
　　B) abdc
　　C) abcd
　　D) dabc
　　正确答案: A

(29) 单击命令按钮，下列程序的执行结果是

　　Private Sub Blck(x As Integer)  
　　x=x * 2 + 1  
　　If x < 6 Then 
　　Call Blck(x)  
　　End If 
　　x=x * 2 + 1  
　　Print x;  
　　End Sub 
　　Private Sub Command1_Click()  
　　Blck 2  
　　End Sub 

　　A) 23 47
　　B) 10 36
　　C) 22 44
　　D) 24 50
　　正确答案: A

(30) 有如下程序：

　　Private Sub Command1_Click()  
　　Dim a As Integer 
　　a=2  
　　For i=1 To 3  
　　Print Gad (A)  
　　Next i  
　　End Sub 
　　Function Gad (a As Integer)  
　　b=0  
　　Static c  
　　b=b + 1  
　　c=c + 1  
　　Gad=a + b + c  
　　End Function 

　　运行上面的程序后，单击命令按钮，输出结果为
　　A)1  2   3
　　B) 2  3   4
　　C) 4   5   6
　　D) 1   4    6
　　正确答案: C

(31) 下列过程定义语句中，参数不是对象的定义语句是

A) Sub Pro4(x As Form)
　　B) Sub Pro4(y As Control)
　　C) Sub Pro4(Form1 As Form,Labell As Control)
　　D) Sub Pro4(x As Currency)
　　正确答案: D

(32) 下列说法正确的是
　　A) 任何时候都可以使用标准工具栏的"菜单编辑器"按钮打开菜单编辑器
　　B) 只有当代码窗口为当前活动窗口时，才能打开菜单编辑器
　　C) 任何时候都可以使用"工具"菜单下的"菜单编辑器"命令，打开菜单编辑器
　　D) 只有当某个窗体为当前活动窗体时，才能打开菜单编辑器
　　正确答案: D

(33) 下列各选项说法错误的一项是
　　A) 文件对话框可分为两种即打开(Open) 文件对话框和保存(Save As) 文件对话框
　　B) DefaultEXT属性和DialogTitle属性都是打开对话框的属性，但非保存对话框的属性
　　C) 打开文件对话框可以让用户指定一个文件，由程序使用；而用保存文件对话框可以指定一个文件，并以这个文件名保存当前文件
　　D) 通用对话框的名称属性的默认值为CommonDialogX(X＝1，2……) ，此外，每种对话框都有自己的默认标题
　　正确答案: B

(34) 下列数组定义语句错误的是
　　A)k%=10
　　Dim Arr(k)
　　B)Const k%=10
　　Dim Arr(k)
　　C)Dim Arr1(10) As Integer
　　Dim Arr2 (10)
　　D)Dim Arr1(1 To 10)
　　Dim Arr2(1 To 10, 2 To 11)
　　正确答案: A

(35) 在Visual Basic中按文件的数据性质不同，可将文件分为
　　A) 数据文件和程序文件
　　B) 文本文件和数据文件
　　C) 顺序文件和随机文件
　　D) ASCII文件和二进制文件
　　正确答案: A

#p#

二 、填空题

(1) 算法的工作量大小和实现算法所需的存储单元多少分别称为算法的 【1】 。
　　正确答案: 1.(时间复杂度和空间复杂度)

(2) 数据结构包括数据的逻辑结构、数据的 【2】 以及对数据的操作运算。
　　正确答案: 1.(存储结构)

(3) 可以把具有相同属性的一些不同对象归类，称为 【3】 。
　　正确答案: 1.(对象类)

(4) 软件工程包括3个要素，分别为方法、工具和 【4】 。
　　正确答案: 1.(过程)

(5) 由关系数据库系统支持的完整性约束是指 【5】 和参照完整性。
　　正确答案: 1.(实体完整性)

(6) 表达式3 ^ 2 Mod 36 ＼ 2 ^ 5的值是 【6】
　　正确答案: 1.(0)

(7) 我国古代数学家张丘建在其著名的《算经》中提出了百鸡问题：每只公鸡5元，每只母鸡3元，三只雏鸡1元；如何用100元买100只鸡，即公鸡、母鸡、雏鸡各多少只。请在空白处填入适当的内容，将程序补充完整。

　　Private Sub Command1_Click()  
　　Dim Cock As Integer 
　　Dim Hen As Integer 
　　Dim Chick As Integer 
　　Form1.Print "公鸡数", "母鸡数", "雏鸡数" 
　　For Cock=0 To 20  
　　For Hen=0 To 33  
　　For Chick=0 To 100  
　　If 【7】 Then 
　　Form1.Print Cock, Hen, Chick  
　　End If 
　　Next Chick  
　　Next Hen  
　　Next Cock  
　　End Sub 

　　正确答案: 1.(Cock + Hen + Chick = 100 And 5 * Cock + 3 * Hen + )

(8) 每一个窗体或者控件都有一个名字，为提高程序的可读性，可以用前缀的方式来表示对象的类型，如Form的前缀为frm，则Image的前缀为 【8】 ，Picture的前缀为 【9】 。
　　正确答案: 1.(img) 2.(pic)

(9) 在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp，单击该按钮，Form1窗体隐藏，显示Form2窗体，程序如下，请补充完整。

　　Private Sub Disp_Click   
　　Me.Hide  
　　Form2. 【10】  
　　End Sub 

　　正确答案: 1.(Show)

(10) 在窗体上有几个对象，运行程序时，当对象得到焦点时，会触发 【11】 事件，当对象失去焦点时将触发 【12】 事件。
　　正确答案: 1.(GotFocus) 2.(LostFocus)

(11) 下面是用冒泡法将5个整数按升序排列，请将程序补充完整。

　　Sub GASR()  
　　Dim m  
　　m=Array(10, 1, 5, 6, 7)  
　　For i=0 To 3  
　　For j= 【13】  
　　If m(i) >=m(j) Then 
　　【14】  
　　m(i) =m(j)  
　　m(j) =t  
　　End If 
　　Next j  
　　【15】  
　　For i=0 To 4  
　　Print m(i)  
　　Next i  
　　End Sub 

　　正确答案: 1.(i +1 To 4) 2.(t = m(i)) 3.( Next i)