一 、选择题
(1) 假设线性表的长度为n，则在最坏情况下，冒泡排序需要的比较次数为
A) log2n
B) n2
C) O(n1..5)
D) n(n-1)/2
正确答案: D
(2) 算法分析的目的是
A) 找出数据结构的合理性
B) 找出算法中输入和输出之间的关系
C) 分析算法的易懂性和可靠性
D) 分析算法的效率以求改进
正确答案: D
(3) 线性表L=(a1,a2,a3,…ai，…an)，下列说法正确的是
A) 每个元素都有一个直接前件和直接后件
B) 线性表中至少要有一个元素
C) 表中诸元素的排列顺序必须是由小到大或由大到小
D) 除第一个元素和最后一个元素外，其余每个元素都有一个且只有一个直接前件和直接后件
正确答案: D
(4) 在单链表中，增加头结点的目的是
A) 方便运算的实现
B) 使单链表至少有一个结点
C) 标识表结点中首结点的位置
D) 说明单链表是线性表的链式存储实现
正确答案: A
(5) 软件工程的出现是由于
A) 程序设计方法学的影响
B) 软件产业化的需要
C) 软件危机的出现
D) 计算机的发展
正确答案: C
(6) 软件开发离不开系统环境资源的支持，其中必要的测试数据属于
A) 硬件资源
B) 通信资源
C) 支持软件
D) 辅助资源
正确答案: D
(7) 在数据流图(DFD) 中，带有名字的箭头表示
A) 模块之间的调用关系
B) 程序的组成成分
C) 控制程序的执行顺序
D) 数据的流向
正确答案: D
(8) 分布式数据库系统不具有的特点是
A) 数据分布性和逻辑整体性
B) 位置透明性和复制透明性
C) 分布性
D) 数据冗余
正确答案: D
(9) 关系表中的每一横行称为一个
Ａ) 元组
Ｂ) 字段
Ｃ) 属性
Ｄ) 码
正确答案: A
(10) 下列数据模型中，具有坚实理论基础的是
A) 层次模型
B) 网状模型
C) 关系模型
D) 以上3个都是
正确答案: C
希望与更多计算机等级考试的网友交流，
.
www.59wj.com
(11) 下列说法正确的是
A) 对象的可见性可设为True或False
B) 标题的属性值不可设为任何文本
C) 属性窗口中属性只能按字母顺序排列
D) 某些属性的值可以跳过不设置，自动设为空值
正确答案: A
(12) 下列关于退出Visual Basic系统的方法的描述错误的是
A) 打开Visual Basic主窗体的"文件"菜单，执行其中的"退出"命令
B) 按快捷键Alt+Q退出
C) 单击Visual Basic主窗体右上角的"关闭"按钮
D) 按快捷键Alt+E退出
正确答案: D
(13) 单击窗体上的关闭按钮时，触发的事件是
A) Form_Initialize( )
B) Form_Load( )
C) Form_Unload( )
D) Form_Click( )
正确答案: C
(14) 在代码编辑器中，续行符是用来换行书写同一个语句的符号，用以表示续行符的是
A) 一个空格加一个下划线"_"
B) 一个下划线"_"
C) 一个造字符"-"
D) 一个空格加一个连字符"－"
正确答案: A
(15) 为了暂时关闭计时器，应把该计时器控件的哪个属性设置为False？
A) Visible
B) Timer
C) Enabled
D) Interval
正确答案: C
(16) 以下关于Visual Basic数据类型的说法，不恰当的是
A) Visual Basic 6.0提供的数据类型主要有字符串型和数值型，此外还有字节、货币、对象、日期、布尔和变体数据类型等
B) 目前Decimal数据类型只能在变体类型中使用
C) 用户不能定义自己的数据类型
D) 布尔型数据只能取两种值，用两个字节存储
正确答案: C
(17) 以下各项，可以作为Visual Basic变量名的是
A) Book
B) 2_Seek
C) 123.58
D) Book－1
正确答案: A
(18) 表达式(3 / 2 + 1) * (5 / 2 + 2) 的值是
A) 11.25
B) 3
C) 6.125
D) 4
正确答案: A
(19) 关于自定义对话框概念的说明，错误的是
A) 建立自定义对话框时必须执行添加窗体的操作
B) 自定义对话框实际上是VB的窗体
C) 在窗体上还要使用其他控件才能组成自定义对话框
D) 自定义对话框不一定要有与之对应的事件过程
正确答案: D
(20) 下面Change事件过程中，文本框控件Text1用来接收数字字符的输入，该事件过程的作用是
Private Sub Text1_Change()
Text2.Text=Str(6.28 * Val(Text1.Text) )
End Sub
A) 将在文本框Text1输入的数字变为数值
B) 将在文本框Text1输入的数字作为半径，求圆的周长并转换为字符串
C) 只要Text1中的内容一改变，Text2中显示的圆周长也随之改变
D) 事件过程中的Val函数和Str函数使用错误，事件过程不能执行
正确答案: C
希望与更多计算机等级考试的网友交流，
.
www.59wj.com(22) 用于将屏幕上的对象分组的控件是
A) 列表框
B) 组合框
C) 标签
D) 框架
正确答案: D
(23) 以下说法不正确的是
A) 使用ReDim语句可以改变数组的维数
B) 使用ReDim语句可以改变数组的类型
C) 使用ReDim语句可以改变数组的每一维的大小
D) 使用ReDim语句可以改变对数组中的所有元素进行初始化
正确答案: B
(24) 有如下事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (Button And 3) =3 Then
Print "OK"
End If
End Sub
程序运行后，为了在窗体上输出"OK"，应当按下的鼠标键是
A) 左键
B) 右键
C) 同时按下左键和右键
D) 按什么都不显示
正确答案: D
(25) 在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，要求单击命令按钮时，打开一个保存文件的对话框，该窗口的标题为"Save"，缺省文件名称为"SaveFile"，在"文件类型"栏中显示*txt，则能够满足上述要求的程序是
A) Private Sub Command1_Click()
CommonDialog1.FileName="SaveFile"
CommonDialog1.Filter="AllFiles|*.*|(*.txt) |*.txt|(*.doC) |*.doc"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="Save"
CommonDialog1.Action=2
End Sub
B) Private Sub Command1_Click()
CommonDialog1.FileName="SaveFile"
CommonDialog1.Filter="AllFiles|*.*|(*.txt) |*.txt|(*.doC) |*.doc"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="Save"
CommonDialog1.Action=2
End Sub
C) Private Sub Command1_Click()
CommonDialog1.FileName="Save"
CommonDialog1.Filter="AllFiles|*.*|(*.txt) |*.txt|(*.doC) |*.doc"
CommonDialog1.FilterIndex=2
CommonDialog1.DialogTitle="SaveFile"
CommonDialog1.Action=2
End Sub
D) Private Sub Command1_Click()
CommonDialog1.FileName="SaveFile"
CommonDialog1.Filter="AllFiles|*.*|(*.txt) |*.txt|(*.doC) |*.doc"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="Save"
CommonDialog1.Action=1
End Sub
正确答案: A
(26) 阅读下面的程序段：
For a=1 To 2
For b=1 To a
For c=b To 2
I=I + 1
Next
Next
Next
Print I
执行上面的三重循环后，I的值为
A) 4
B) 5
C) 6
D) 9
正确答案: B
(27) 设有下面的循环：
i=0
While i <=1
i=i + 3
Print i
Wend
则运行后的输出结果是
A) 1
B) 2
C) 3
D) 4
正确答案: C
(28) 设有下面的循环：
i=1
Do
i=i + 3
Print i
Loop Until I>
程序运行后要执行3次循环体，则条件中I的最小值为
A) 6
B) 7
C) 8
D) 9
正确答案: B
(29) 执行以下语句过程，在窗体上显示的内容是
Option Base 0
Private Sub Command3_Click()
Dim d
d=Array("a", "b", "c", "d")
Print d(1) ; d(3)
End Sub
A) ab
B) bd
C) ac
D) 出错
正确答案: B
(30) 下列程序段，在运行时最早输出的内容是
a=2
c=1
AAA:
c=c + a
If c < 10 Then
Print c
GoTo AAA
Else
Print "10以内的奇数显示完毕。"
End If
A) 3
B) 7
C) 9
D) 6
正确答案: A
www.59wj.com
(31) 有如下程序段：
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 3
Print G(A)
Next i
End Sub
Function G(a As Integer)
b=0
Static c
b=b + 1
c=c + 1
G=a + b + c
End Function
运行上面的程序后，单击命令按钮，输出结果为
A) 1 2 3
B) 2 3 4
C) 4 5 6
D) 1 4 6
正确答案: C
(32) 单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click()
Print MyBM(23, 18)
End Sub
Public Function MyBM(m As Integer, n As Integer) As Integer
Do While m <> n
Do While m > n: m=m - n: Loop
Do While m < n: n=n - m: Loop
Loop
MyBM=m
End Function
A) 0
B) 1
C) 3
D) 5
正确答案: B
(33) 有如下的程序：
Private Sub Command1_Click()
Dim k As Integer, m As Integer
Dim P As Integer
k=4: m=1
P=Pid(k, m) : Print P;
P=Pid(k, m) : Print P
End Sub
Private Function Pid(a As Integer, b As Integer)
Static m As Integer, i As Integer
m=5: i=2
i=i + m + 1
m=i + a + b
Pid=m ＼ 2
End Function
单击命令按钮后，输出结果为
A) 2 2
B) 4 4
C) 55
D) 6 6
正确答案: D
(34) 下面4个CT函数中是用来判断用户输入的数是否为奇数的，是奇数的返回1，否则返回0，其中正确的是
A) Function CT(ByVal a As Integer)
If a Mod 2=0 Then
Return 0
Else
Return 1
End if
End Function
B) Function CT(ByVal a As Integer)
If a Mod 2=0 Then
CT=0
Else
CT=1
End if
End Function
C) Function CT(ByVal a As Integer)
If a Mod 2=0 Then
CT=1
Else
CT=0
End if
End Function
D) Function CT(ByVal a As Integer)
If a Mod 2=0 Then
Return 1
Else
Return 0
End if
End Function
考生答案: 正确答案: B
(35) 在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim m As Integer, n As Integer, p As Integer
m=3: n=5: p=0
Call Y(m, n, p)
Print Str(p)
End Sub
Sub Y(ByVal i As Integer, ByVal j As Integer, k As Integer)
k=i + j
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A) 4
B) 6
C) 8
D) 10
正确答案: C
www.59wj.com
二 、填空题
(1) 在算法正确的前提下，评价一个算法的两个标准是 【1】 。
正确答案: 1.(时间复杂度和空间复杂度)
(2) 将代数式 转换成程序设计中的表达式为 【2】 。
正确答案: 1.(SQR(x^2+y^2) /(a+b))
(3) 软件危机出现于60年代末，为了解决软件危机，人们提出了 【3】 的原理来设计软件，这就是软件工程诞生的基础。
正确答案: 1.(软件工程学)
(4) 【4】 是数据库设计的核心。
正确答案: 1.(数据模型)
(5) 在关系模型中，把数据看成一个二维表，每一个二维表称为一个 【5】 。
正确答案: 1.(关系)
(6) 有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
Private Sub Command1_Click()
x=Val(Text1.Text)
If 【6】 Then
Print x
Else
Text1.Text=""
【7】
End If
End Sub
正确答案: 1.(x Mod 4 = 1 And x Mod 5 = 2) 2.(Text1.SetFocus)
(7) 已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数
Dim 【8】
For i=65 To 90
pp(i) =0
Next
x$=InputBox("Enter a string", x$)
x$=UCase$(x$)
For i=1 To 【9】
n=Asc(Mid$(x$, i, 1) )
If n >=65 And n <=90 Then
【10】
End If
Next i
For i=65 To 90
If pp(i) > 0 Then
Print Chr$(i) ; pp(i)
End If
Next
正确答案: 1.(pp(65 To 90)) 2.(Len(x＄)) 3.(pp(n) = pp(n）+ 1)
www.59wj.com
(8) 下面运行程序后，单击命令按钮，输出的结果是 【11】 。
Private Sub Command1_Click()
Dim a%(1 To 4) , b%(3 To 6) , i%, s1#, s2#
For i=1 To 4
a(i) =i
Next i
For i=3 To 6
b(i) =i
Next i
s1=YAS(A)
s2=YAS(b)
Print "s1="; s1; "s2="; s2
End Sub
Function YAS(a() As Integer)
Dim t#, i%
t=1
For i=LBound(A) To UBound(A)
t=t * a(i)
Next i
YAS=t
End Function
正确答案: 1.(s1=24 s2=360)
(9) 如果存在如下过程：
Private Function FMax(a() As Integer)
Dim First As Integer, Last As Integer, i As Integer
First=LBound(A)
Last=UBound(A)
Max=a(First)
For i=First To Last
If a(i) > Max Then Max=a(i)
Next i
FMax=Max
End Function
在窗体上添加一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
ReDim m(1 To 4) As Integer
m(1) =20: m(2) =30: m(3) =50: m(4) =100
c=FMax(m)
Print c
End Sub
单击命令按钮，其输出结果为 【12】 。
正确答案: 1.(100)
(10) 在窗体上加上一个文本框控件TextBox，画一个命令按钮，当单击命令按钮的时候将显示"保存文件"对话框，设置该对话框可用于保存文本文件(默认) 和Word文档，然后在文本框控件中显示保存的文件名，请填空。
Private Sub Command1_Click()
CommonDialog1.Filter= 【13】
CommonDialog1.Filter= 【14】
CommonDialog1.ShowSave
TextBox.Text= 【15】
End Sub
正确答案: 1.("文本文件(*.txt) |*.txt|Word文档|*.doc") 2.(1) 3.(CommonDialog1.)
希望与更多计算机等级考试的网友交流，
.
www.59wj.com 如果觉得《2011年9月计算机二级VB模拟试题(8)及答案》VB模拟题,jsj不错，可以推荐给好友哦。