2007年9月计算机二级VB模拟试题(8)及答案

一、选择题
(1)假设线性表的长度为n，最坏情况下，冒泡排序所需的比较次数为
a . log2n
b . N2
c . o(n1..5)d . n

(2)算法分析的目的是
A .找出数据结构的合理性
B .找出算法中输入和输出的关系
C .分析算法的可理解性和可靠性
D .分析算法的效率以提高
正确答案:d。

(3)线性表L=(a1，a2，a3，…ai，…an)，下列说法正确的是
A .每个元素都有一个直接前件和一个直接后件
B .线性表中至少要有一个元素
C .表中元素的顺序必须由小到大。

(4)在单链表中，添加头节点的目的是
a .便于实现运算
b .使单链表至少有一个节点
c .标识头节点在表节点中的位置
d .说明单链表是线性表的链式存储实现
正确答案:。

(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 .元组
B .字段
C .属性
D .代码
正确答案:a。

(10)下列数据模型中，
A .层次模型
B .网络化模型
C .关系模型
D .以上三个都是
正确答案:c。

1)下列说法正确的是
A .对象的可见性可以设置为True或false
B .标题的属性值不能设置为任何文本
C .属性窗口中的属性只能按字母顺序排列
D .有些属性值可以跳过自动设置为空 value [

(12)下列关于退出Visual Basic系统方法的描述错误的是
A .打开Visual Basic主窗体的“文件”菜单，执行“退出”命令
B .按快捷键Alt+Q退出
C .单击Visual Basic主窗体右上角的“关闭”按钮
。

(13)当您单击窗体上的关闭按钮时，触发的事件是
a . form _ initialize()
b . form _ load()
c . form _ unload()
d . form _ click()[/br

(14)在代码编辑器中，行继续符是一个符号，用于用新的一行书写同一个句子。它是
A .一个带有下划线“_”
b .一个下划线“_”
c .一个字符"-

(15)为了临时关闭计时器，应该将该计时器控件的哪个属性设置为False？
A .可见
B .定时器
C .启用
D .间隔
正确答案:c。

(16)下列关于Visual Basic数据类型的说法不恰当
a . Visual Basic 6.0提供的数据类型主要有字符串类型和数值类型，此外还有字节、货币、对象、日期、布尔和变量数据类型等。
B .目前十进制数据类型只能在variant类型中使用
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
是正确的。

(19)关于自定义对话框概念的解释，错误是
A .创建自定义对话框时，必须执行添加窗体的操作
B .自定义对话框实际上是一个VB窗体
C .必须在窗体上使用其他控件才能形成自定义对话框
D .自定义对话框不一定要有相应的事件过程[/br

(20)在下面的改变事件期间，文本框控件Text1用于接收数字字符的输入。这个事件过程的作用是
private sub Text1 _ Change()
text 2 . text = str(6.28 * val(text1 . text))
end sub
a .将text 1中输入的数字转换成数值
B .以text 1中输入的数字为半径，求圆周并转换成字符串
c . text 1中的内容一变化， Text2中显示的圆的周长也发生变化
D .事件过程中Val函数和str函数使用错误，事件过程无法执行
正确答案:C
(21
A .列表框。 Selected(索引值)
B .列表框名称。Selected(索引值)= true | false
C .列表框。选定的
D .列表框名称。Selected = true | false [/br用于对屏幕上的对象进行分组的控件有
A .列表框
B .组合框
C .标签
D .框架
正确答案:d。

(23)下列说法不正确的是
A .使用ReDim语句可以改变数组的维数
B .使用ReDim语句可以改变数组的类型
C .使用ReDim语句可以改变数组各维的大小
D .使用ReDim语句可以改变数组中所有元素的初始化

(24)有以下事件过程:
Private subform _ keydown(key code As integer，As integer)
if(button and 3)= 3然后
print " OK "
end if
end sub
程序运行后，应该按下的鼠标键是
a。

(25)在表单上绘制一个名为CommonDialog1的通用对话框，以及一个名为Command1的命令按钮。单击命令按钮时，会打开一个对话框来保存文件。这个窗口的标题是“保存”，默认文件名叫做“保存文件”，“文件类型”一栏显示*txt。那么能满足上述要求的程序就是
a . private subcommand 1 _ click()
common dialog 1 . filename = " save file "
common dialog 1 . filter = " all files | *。* | (*.txt) | *。txt | (* .doC.|*。doc"
CommonDialog1。filter index = 2
common dialog 1。dialog title = " Save "
common dialog 1。action = 2
End Sub
B . Private Sub command 1 _ Click()
common dialog 1。FileName = " save file "
common dialog 1。Filter= "AllFiles|*。*|(*.txt) |*。txt|(*.doC.|*。doc"
CommonDialog1。filter index = 1
common dialog 1。dialog title = " Save "
common dialog 1。action = 2
End Sub
C . Private Sub command 1 _ Click()
common dialog 1。FileName = " Save "
common dialog 1。Filter= "AllFiles|*。*|(*.txt) |*。txt|(*.doC.|*。doc"
CommonDialog1。filter index = 2
common dialog 1。dialog title = " save file "
common dialog 1。action = 2
End Sub
D . Private Sub command 1 _ Click()
common dialog 1。FileName = " save file "
common dialog 1。Filter= "AllFiles|*。*|(*.txt) |*。txt|(*.doC.|*。doc"
CommonDialog1。filter index = 1
common dialog 1 . dialog title = " save "
common dialog 1 . action = 1
end sub
正确答案:A

(26)阅读下面的程序段:
for a = 1to 2
for b = 1to 2
for c = bto 2
I = I+1
Next
Next
I的值是
a . 4
b . 5
c . 6
d . 9
正确答案:b。

(27)有如下循环:
I = 0
而i
条件中I的最小值是
a . 6
b . 7
c . 8

(29)执行下面的语句，表单上显示的内容为
option base 0
private subcommand 3 _ click()
dim D
D = array(" A "，" B "，" C "，" D ")[/D(3)
end sub
A . AB
B . BD
C . AC
D .错误
正确答案:B。

(30)下列程序段，运行时最早输出的内容是
A = 2
c = 1
AAA:
c = c+A
如果c < 10则
print c

Endif
A . 3
b . 7
c . 9
d . 6
正确答案:A

(31)有以下程序段:
private子命令1 _ click()
dim a as integer
a = 2
for I = 1to 3
print G(a .
next I
G(a as integer)
b = 0
static C
b = b+1
C = C+1
G = a+b+C
当你点击命令按钮时，下面程序的运行结果是
private subcommand 1 _ click()
print MyBM(23，18)
End sub
public function MyBM(m为整数，n为整数)为整数
Do While m n
Do While m > n:m = m-n:Loop
Do While m < n:n = n-m:Loop
Loop

(33)有以下程序:
private子命令1 _ click ()
dim k为整数，m为整数
dim p为整数
k = 4: m = 1
p = PID (k，m
P=Pid(k，m):Print P
End Sub
Private函数Pid(a为整数，b为整数)
Static m为整数，I整数
m = 1

(34)以下四个CT函数用于判断用户输入的数字是否为奇数。如果是奇数，返回1，否则返回0， 正确的是
a .函数CT (byval a为整数)
如果a mod 2 = 0那么
返回0
else
返回1
End If
End Function
B .函数CT(ByVal a为整数)
如果a Mod 2=0那么
CT = 0
Else
CT = 1
End If[/br 如果a mod 2 = 0那么
返回1
else
返回0
end if
end function
候选答案:正确答案:b。

(35)在窗体上绘制一个命令按钮，然后编写以下事件过程:
private subcommand 1 _ click()
dim m为整数，N为整数，p为整数
m = 3: n = 5: p = 0
call y ( N，p)
printstr(p)
end sub
sub y(byval I为整数，byval j为整数， k为整数)
k = I+j
end sub
程序运行后如果单击命令按钮，窗体上显示的内容是
a . 4
b . 6
c . 8
d . 10
正确答案:c。

二。填空空题
(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命令1_Click()
x=Val(Text1。Text)
如果【6】则
Print x
Else
text 1。text = " "[/Br/]【7】[/Br/]End If[/Br/]End Sub[/Br/]正确答案:1。(x mod 4 = 1，x mod 5 = 2) 2。(text1.setfocus)

(7)给定B的ASCII码为66，下面的程序统计键盘输入的字符串中每个英文字母的使用次数
dim[8]
for I = 65 to 90
PP(I)= 0
next
x $ =输入框。x $)
x $ = UCase $(x $)
For I = 1 To【9]
n = Asc(Mid $(x $，I，1))
If n > = 65 And n【10】
End If
Next I
For I = 65 To 90
If PP(I)> 0则
Print Chr $(I)；PP(I)
end if
next
正确答案:1。(第65至90页)2。(Len (x $)) 3。(PP (n) = PP (n)+1)
。
Private Sub command 1 _ Click()
Dim A %(1到4)，b%(3到6)，i%，s1#，s2#
For i=1到4
A(I)= I
Next I
For I = 3到6
b(I)= I
Next I
S1 = YAS(A)
S2 = YAS(b)
Print " S1S1；" S2 = "；S2
End Sub
函数YAS(a()为整数)
Dim t#，I %
t = 1
for I = lbound(a)to ubound(a)
t = t * a(I)
next I
yas = t
End函数[

(9)如果存在以下进程:
私有函数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
fmax = Max

正确答案:1。(100)

(10)在窗体上添加一个TextBox控件，并绘制一个命令按钮。单击命令按钮时，将显示“保存文件”对话框。将此对话框设置为保存文本文件(默认)和Word文档，然后在textbox控件中显示保存的文件名。请填写空。
Private Sub command 1 _ Click()
common dialog 1。Filter= 【13】
CommonDialog1。Filter= 【14】
CommonDialog1。show save
text . text =[15]
end sub
正确答案:1。(“文本文件(*。txt) |*。txt|Word文档| *。doc》)2。(1) 3.(常用对话1。)