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

一、选择题
(1)两个栈共用一个存储空的好处是
A .减少访问时间和下溢概率
B .节省存储空和减少上溢概率
。

(2)有两个字符串P和Q，求Q在P中第一个位置的运算叫做
A .连接
B .模式匹配
C .求子串
D .求字符串长度
正确答案:b。

(3)n顶点连通图的边数至少为
a . 0
b . 1
c . n-1
d . n
正确答案:c。

(4)对象实现了数据和操作的结合，是指数据和数据的操作
A .结合
B .隐藏
C .封装
D .抽象
正确答案:c。

(5)下列说法中，正确的是
A .软件是程序清单
B .软件是存储在计算机中的文件
C .软件应该包括程序清单和运行结果
D .软件包括程序和文档
正确答案:d。

(6)在软件设计中，有利于提高模块独立性的一个准则是
A .低内聚低耦合
B .低内聚高耦合
C .高内聚低耦合
D .高内聚高耦合
正确答案:c。

(7)软件生命周期中最耗时的阶段是
A .详细设计
B .软件编码
C .软件测试
D .软件维护
正确答案:d。

(8)下列四种说法不正确的是
A .数据库减少了数据冗余
B .数据库中的数据可以共享
C .数据库避免了所有数据的重复
D .数据库具有很高的数据独立性
正确答案:c。

(9)下列四项中，查询优化必须是
A .关系数据库
B .网络化数据库
C .层次数据库
D .非关系模型
正确答案:a。

(10)最常用的基础数据模型是关系数据模型，其表示应采用
A .真
B .网
C .图
D .二维表
正确答案:D
(11)下列说法不正确的是
A .属性窗口中的属性可以按字母顺序排列
D .有些属性值可以跳过不设置，系统会自动设置为/[/的

(12)要将窗体设置为固定对话框，并包含控件菜单栏和标题栏，但没有最小化和最小化按钮，设置操作为
a .将BoderStyle设置为固定工具窗口
b .将BoderStyle设置为可调整大小的工具窗口
c .将BoderStyle设置为固定对话框
d .将BoderStyle设置为可调整大小的
正确答案:。

(13)下列控件可以作为其他控件的容器:
A. Picturebox和Data
B. Frame和image
C. Picturebox和frame
D. Image和Data
正确答案:c。

(14)如果要将文本框用作密码框，应该设置的属性是
a . name
b . caption
c . password char
d . text
正确答案:c。

(15)关于程序代码窗口的说法是错误的
A .在窗口的垂直滚动条的上方，有一个“分割条”，可以用来把窗口分成两部分，每个窗口显示一部分代码
B .双击控件设计窗体打开程序代码窗口
C .程序代码的左下角有两个按钮，可以选择。

(16)Visual Basic中的数值可以用十六进制或八进制表示。十六进制数的起始符号是&H，八进制数的起始符号是
a . $ o
b . & o
c . $ e
d . & e[/br]

(17)msgbox函数返回值的类型是
A .数值型
B .变量型
C .字符串型
D .日期型
正确答案:a。

(18)在当前表单上输出“计算机技术”的语句是
a .打印“计算机技术”
b .图片.打印“计算机技术”
c .打印机.打印“计算机技术”
d .调试.打印"

(19)用来设置文本框中是否有滚动条的属性是
A . scroll bars
b . Multiline
c . SelText
d . SelLength
正确答案:A

(20)当Esc键与单击该命令按钮的功能相同时，该命令按钮的什么属性设置为True？
a . style
b . default
c . caption
d .取消
正确答案:d

(21)在Visual Basic中，若要将标签的标题栏显示在右侧，请将其对齐属性设置为
a . 0
b . 2
c . 1
d . 3
正确答案:c

(BorderColor属性的作用是
a .设置直线和形状边界的颜色
b .设置直线或形状的背景颜色
c .设置直线或形状边界的线型
d .设置形状的内部颜色
正确答案:a。

(23)如果a
a .如果a
a =-1
打印a
b .如果a
a =-1:打印a
c .如果a
Br/] end if
d .如果a =-1
打印a
打印a
考生答案:c。

(24)以下程序段的执行结果为
a = 2
b = 0
select case a
case 1
case 0
print“* * 0 * *”。* 1 * * "
end select
case 2
print " * * 2 * * "
end select
a . * * 0 * *
b . * * 1 * *[/]

(25)在表单上绘制一个名为Drive1的驱动器列表框、一个名为Dir1的目录列表框和一个名为File1的文件列表框。虽然两个名字分别是Label1和Label2，但是标题分别是空白色和“共享文件”的标签。写一个程序，使驱动器列表框和目录列表框、目录列表框和文件列表框同步变化，并在Label1中显示当前文件夹中的文件数。如图所示。

能够正确实现上述功能的程序是
a . Private sub dir 1 _ change()
file 1 . path = dir 1 . path
end sub
Private sub dive 1 _ change()
dir 1 . path = drive 1 . drive[br/]label 1。标题=文件1。list count
End Sub
B . Private Sub dir 1 _ Change()
文件。Path=Dir1。path
End Sub
Private Sub dive 1 _ Change()
dir 1。Path=Drive1。驱动器
标签1。标题=文件1。list
End Sub
C . Private Sub dir 1 _ Change()
file 1。Path = Dir1。Path
Label1。标题=文件1。list count
End Sub
Private Sub drive 1 _ Change()
dir 1。Path = Drive1。驱动器
标签1。标题=文件1。list count
End Sub
(D . Private Sub dir 1 _ Change()
file 1。Path=Dir1。Path
Label1。标题=文件1。list count
End Sub
private dive 1 _ change()
dir 1 . path = drive 1 . drive
label 1 . caption = file 1 . list
End Sub
正确答案:C

(26)用声明语句
option base 1
dim b(-1到10，2到9，20)作为整数
，数组b中所有元素的个数
a.2310
b.1920

(27)单击命令按钮，下面事件过程的执行结果为
private subcommand 1 _ click()
dim x as integer，Y as integer
x = 40:Y = 72
callptop(x，Y)[/br/Y
end sub
public sub ptop(byval n as integer，byval m as integer)
n = n \ 10+2
m = m

(28)下面这个程序的执行结果是
private subcommand 1 _ click()
dim p as integer，q as integer
p = 12:q = 20
call value(p，q)
print p；q
End Sub
Private Sub Value(ByVal m为整数，ByVal n为整数)
m = m * 2:n = n-5
Print m；n
end sub
a . 20 12
20 15
b . 12 20
c . 24 15
12 20
]

(29)在窗体上绘制一个命令按钮，然后编写如下程序:
private subcommand 3 _ click()
COP 2
COP 3
COP 4
End Sub
Sub COP(a为整数)[/
End Sub
程序运行后，单击命令按钮，输出结果为
A.234
B.259
C。

(30)有以下事件过程，点击命令按钮按钮，输出结果为
private subcommand 1 _ click()
Dim B %(1to 4)，j%，t #
For j = 1to 4
B(j)= j[t，
End Sub
Function Tax(a()为整数)
Dim t#，I %
t = 1
For I = 2 To UBound(a 然后编写下面的事件过程:
Private Subtext 1 _ Keydown(Key code As Integer，Shift As Integer)
Const Alt = 4
Const Key _ F2 = & H71
Alt down % =(Shift和Alt)> 0
F2 down % =(Key code = Key _ F2)
If Alt down %和F2 down % then
text 1 . text = " abl "
end If 如果按Shift+F2，文本框中将显示
a.alt。

(32)假设表单的快捷菜单已经在菜单编辑器中设计好了，它的菜单是Bt，取消了它的“可见”属性。运行时，在以下事件的处理过程中，快捷菜单对应的鼠标右键菜单可以是
a .私有子窗体_ mousedown (button为整数，shift为整数，_
X为Single，Y为Single)
如果Button=2则PopupMenu Bt，2
End Sub
B .私有子窗体_MouseDown(Button为整数，Shift为整数，_
X为Single，Y为Single)
PopupMenu Y As Single)
PopupMenu Bt，0
End Sub
D . Private Sub Form _ MouseDown(Button As Integer，As Integer，_
x as single，y As Single)
if(Button = vbleft Button)or(Button = vbright Button)then popup menu Bt
End Sub
正确答案:A

(33)在表单上绘制一个通用对话框，其Name属性为Cont，然后绘制一个命令按钮，其Name属性为Command1。然后编写以下事件过程:
private subcommand 1 _ click()
cont . filename = " "
cont . flags = vboffilemust exist
cont . filter = " all files | *。*"
续。FilterIndex=3
Cont。DialogTitle= "打开文件"
Co nt。如果Cont，action = 1
。FileName = " " Then[/Br/]MsgBox " No file selected "[/Br/]Else[/Br/]Open cont . FileName for input as # 1[/Br/]do while not eof(1)[/Br/]input # 1，b $[/Br/]print b $[/Br/]loop[/Br/]end if[/Br/]end sub[/Br/][/Br/]a .此事件过程用于建立一个打开对话框，您可以在其中选择要打开的文件
B 而选择的文件名将是对话框的FileName属性值
C .打开对话框不仅用于选择文件，还可以打开并显示文件
D. "Cont . 流程中的“Action=1”用于建立打开对话框，相当于Cont。ShowOpen
正确答案:c。

(34)已知Show方法的格式是[form name]。显示[模式]。如果窗体是“模态”窗体，则“模态”的值为
a . true
b . 0
c . 1
d。

(35)下列说法不正确的是
A .顺序文件中的数据只能按一定的顺序操作
B .顺序文件结构简单
C .顺序文件可以同时读写
D .只有在顺序文件中才能知道第一条记录的位置
正确答案:c。

二。填空空题
(1)线性表以顺序存储结构存储时，其主要特点是[1]。
正确答案:1。(逻辑结构中的相邻节点在存储结构中仍然相邻)

(2)软件工程的出现是由于[2]。
正确答案:1。(软件危机的出现)

(3)单元测试又称模块测试，一般采用[3]测试。
正确答案:1。(白盒法)

(4)数据库恢复是将数据库从[4]的状态恢复到一个已知的正确状态。
正确答案:1。(错误)

(5)数据的基本单位是[5]。
正确答案:1。(数据元素)

(6)下面这条语句的输出结果是[6]。
打印格式$ (6658.6，" 000，000.00")
正确答案:1。(006,658.60)

(7)如果名为PIC.dat的顺序文件已经存在于驱动器D的当前文件夹中，执行语句open "d: \ pic.dat "以追加为# 1，然后执行[7]。
正确答案:1。(在文件末尾添加新内容)

(8)从以下程序部分的文本框中输入数据。如果数据符合条件，则除以6+2和5+3，然后输出。否则，关注文本框并清除文本框的内容。
Private Sub命令1_Click()
num=Val(Text1。Text)
如果【8】则
打印号码
否则
Text1。text = " "
【9】
End
End sub
正确答案:1。(nummod6 = 2且nummod5 = 3) 2。(text1.setfocus)

(9)下面这个程序的作用是用random函数生成10个100到300之间(不含300)的随机整数，打印出其中7的倍数的个数，求它们的和。请填写空。
Sub TOF()
Randomize
Dim S As Double
Dim a(10)As Integer
For I = 0到9
【10】
Next
For I = 0到9
If 【11】然后
Print a(I)
S = S+a(I)
【12】
Next I
S
End Sub
正确答案:1。(A (I) = int (RND * 200+100)) 2。(A (I) mod 7 = 0) 3。(结束if)

(10)下面的程序是计算给定函数的值。自变量x和y的值由InputBox函数输入。函数如下:
f(x，y) =
程序不完整。请填写空完成节目的补充。
option explicit
dim x as single
dim y as single
dim z as single
private sub command 1 _ click()
x = val(inputbox(" x = ")
y = val(inputbox(" y = "))
end sub
private sub command 2 _ click()
if【13】然后
z=x ^ 2 + y ^ 2x，y
Form1的值。打印“f(x，y)是:”；Z
End Sub
正确答案:1。(x > 0且y > 0) 2。(x < 0且y > 0) 3。(否则)