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

一、选择题
(1)下列说法正确的是
A .线性表是线性结构
B .栈和队列是非线性结构
C .线性链表是非线性结构
D .二叉树是线性结构
正确答案:A .满足
A . p-> next = = null
b . p = = null
要用的算法是
A .堆排序
B .直接插入排序
C .快速排序
D .直接选择排序
正确答案:B
(4)要建立良好的编程风格，下列描述正确的是
A .程序要简单， 清晰易读
B .符号名的命名要符合语法
C .要充分考虑程序的执行效率
D .程序的注释是可选的
正确答案:A
( ] B .数据字典
C .决策树
D. Pad图
正确答案:A
(6)在软件制作过程中， 给出的信息是
A .程序员
B .项目经理
C .软件分析师和设计师
D .软件用户
正确答案:D
(7)下列工具中
D. DFD
正确答案:D
(8) NULL指
a . 0
B .空case
C .未知值或无值
D./ A .数据流图完成
b .数据字典完成
C. DBA完成
D. pad图完成
正确答案:C
(10)下列各项中

(12) Visual Basic 6.0分为三个版本。不属于这三个版本的是
A .学习版
B .专业版
C .企业版
D .业余版
正确答案:d。

(13)决定表单控件起始位置的属性是
A .宽度和高度
B .宽度或高度
C .启动Poston
D .顶部和左侧
正确答案:c。

(14)创建一个新表单，其BorderStyle属性设置为Fixed Single，但运行时没有最小化和最小化按钮。可能的原因是
a.borderstyle的值被设置为Fixed。Single，该设置值的作用是禁用和最小化按钮
B .表单的MaxButton和MinButton值设置为false
C .正常情况下，所有新创建的表单都没有最小化和最小化按钮
D .此表单可以通过鼠标拖动边框来调整大小
正确答案:b

(15)创建一个新的列表框。要检查列表项，应该设置的属性是
A .滚动条
B .多选
C .数据字段
D .拉伸
正确答案:B

(16)下列说法中，正确的是
A .控件数组各成员的Caption属性值必须相同
B .控件数组各成员的Index属性值必须不同
C .控件数组各成员执行不同的事件过程
D .对于已建立的同类型的多个控件，

(17)您可以在常数后添加类型说明符，以显示常数的类型。能表示整数常量的是
A.%
B. #
C！
D. $
正确答案:a。

(18)在Visual Basic中，下面两个同名的变量是
a.japan和ja _ pan
b.english和English
c.english和English
d.china和Chin
。正确答案:b

(19)表达式(7 \ 2+1) * (8 \ 2+2)的值为
a . 4.58
b . 5.69
c . 24
d . 22
。

(20)表达式x = sqr (a 2-5)+sqr (b 2-5)的类型是
a .算术表达式
b .逻辑表达式
c .关系表达式
d .字符表达式[/br a . list 1 . list count
b . list 1 . list(list count-1)
c . list 1 . list index
d . list 1 . list(list . listindex)
正确

(22)当框架的哪个属性设置为False时，其标题将灰显，框架中的所有对象都将被阻止？
A .名称
B .启用
C .标题
D .可见
正确答案:b。

(23)执行以下过程时，输入2，4，6，结果为
dim A(4)as integer
dim b(4)as integer
for k = 0to 2
A(k+1)= val(输入框("输入数据:"))
next k
print b(k)
A . 2
b . 4
c . 6
d . 0

(24)编写以下事件过程:
private subform _ mousedown(button As integer，shift as integer，_
x as single，As single)
如果shift = 6，button = 2，则
print " PC "
end if
end sub
程序运行后，为了在窗体上输出" PC "，要执行的动作是
a .同时按shift键和鼠标左键[/br Alt键和鼠标右键同时
c .同时按下Shift键和鼠标右键
d .同时按下Ctrl、Alt键和鼠标左键
正确答案:b

(25)如果一个通用对话框控件DBT被添加到窗体中，则声明“DBT”的功能。Action=4”是
a .显示“打开文件”对话框
b .显示“保存文件”对话框
c .显示“字体”对话框
。

(26)下列描述中，不属于随机文件特征的是
A .可以随意读取随机文件中任意记录的数据
B .随机文件没有只读或只写的操作方式，随机文件一打开就可以读写
C .随机文件的操作是基于记录的
D

(27)执行以下程序后，输出结果为
x = 1
for j = 1to 4
x = x-1:Y = 0
for k = 1to 4
x = x+1:Y . Y
a . 14
B . 134
c . 128
d . 206
正确答案:B

(28)有以下程序。程序执行后，循环次数为
total = 0
counter = 1
do
print counter
total = total+counter
print total
counter = counter+1[/br如果total > 10，则
exit do
end if
循环，同时counter = 30
打印编号，s
end sub

(30)有以下程序:
private subcommand 1 _ Click()
a $ = " a worker is here "
x = len(a $)
for I = 1 to x-1
b $ = mid 3)
if b $ = " wor "则s = s+1
next
prints s
end sub
单击命令按钮，将

(31)单击命令按钮时，下面程序的执行结果为
private subcommand 1 _ click()
bt4
end sub
private sub Bt(x为整数)
x = x * 2+1
if x < 6 then[/br]
end sub
a . 15
b . 16
c . 17
d . 17

(32)当窗体被点击时，下面程序的执行结果是
Private Sub invert(byval xstr As String，ystr As String)
Dim tempstr As String
Dim I As Integer
I = Len(xstr)
Do While I > = 1
tempstr = tempstr+Mid(xstr，I，1)
I = I-1
Loop[/ystr = temp

(33)在窗体上绘制一个命令按钮，然后编写下面的程序:
private subcommand 1 _ click()
dim a as single，B as single
a = 6:B = 2
RC a，b
print a，B
end sub
sub RC(x as single，y as single)
I = x[/y
y = I mody[]

(34)有以下事件过程:
private subcommand 1 _ click()
dim m as integer，n as integer
m = 2:n = 1
print " m = "；m；" n = "；n
调用TOD(m，n)
Print " m = "；m；" n = "；N
end sub
sub tod (x，y)
x = x ^ 2
y = y ^ 3
end sub
程序运行后，输出结果为
a..N = 1
c.m = 1，n = 2
m = 1，n = 4
d.m = 1，n = 2
m = 2，n = 4
考生答案:正确

(35)有以下事件过程:
private subcommand 1 _ click()
Dim I as integer
for I = 1to 2
DC
next I
end sub
sub DC(Dim x as integer，m as string
static y，n
x = x+1
y = y+1
m = m & " * ":n = n & " # "输出结果是
a . 11 * #
11 * #
b . 11 * #
12 * #
c . 11 * #[/br]

二。填空空题
(1)冒泡排序算法情况下的元素交换次数为[1]。
正确答案:1。(0)

(2)最坏的情况下，堆排序需要比较的个数是[2]。
正确答案:1。(O(nlog2n))

(3)如果字符串s="MathTypes "，则其子字符串的个数为[3]。
正确答案:1。(46)

(4)软件开发环境是完全支持软件开发全过程的[4]的集合。
正确答案:1。(软件工具)

(5)关系数据库的关系演算语言是基于[5]的DML语言。
正确答案:1。(谓词演算)

(6)下面这条语句的输出结果是[6]。Print $ (1258.6，" 000，000.00")
正确答案:1。(001,258.60)

(7)对应关系x≤-5或x≥5的布尔表达式为[7]。
正确答案:1。(x=5)

(8)随机文件数据访问以[8]为单位进行操作。
正确答案:1。(一项记录)

(9)表单上有一个名为Label1的标签和一个名为List1的列表框。程序运行后，在列表框中添加几个列表项。双击列表框中的某个项目时，选中的项目会显示在标签Labe1中，如图所示。请填写空中的相应内容以完成该程序。
私有subform _ load ()
List1。AddItem“北京”[br/]list 1。AddItem“上海”
list1.additem“河北”
end sub
private sub list 1[9
label . caption =[10]
end sub
正确答案:1。(DblClick) 2。(列表1。正文)

(10)在执行语句open " TC.dat " for random as # 1 len = 50后，可以对文件TC . dat中的数据执行的操作是[11]。
正确答案:1。(你可以读或写)

(11)下面这个程序的作用是统计字符串中“I”的个数。请填写空。
Sub COU()
a$= "北工大"
Dim n As Integer
n = Len(a $)
For I = 1 To n
b $ =【12】
If【13】那么x = x+1
Next I
Print " x = "；X
End Sub
正确答案:1。(Mid $ (A $，I，1)) 2。(B $ = "I ")

(12)下面事件过程的作用是创建一个名为Datal的随机文件，存储角度值和这些角度的正余弦函数值，角度为1，2，3，…，90。请填写空中的相应内容以完成该程序。
Private Type Ang
K As Integer
Sinx As Single
Cosx As Single
End Type
Dim Ksc As Ang
Private Sub Form _ Click()
Dim Y As Single
Open【14】
Y = 3.14159/180
For I = 1到90
KscK=I
Ksc。Sinx=Sin(I * Y)
Ksc。Cosx=Cos(I * Y)
【15】
下一个我

Close #2
End Sub
正确答案:1。(“C: \ data1.txt”代表random as # 2 len = 10) 2。(放# 2，I)