全国计算机等级考试二级VB模拟试题1

一、选择题(每题2分，共70分)
1。数据的存储结构是指_ _ _ _ _。
A、存储在外部存储器中的数据
B、存储空数据所占用的空间
C、数据在计算机中的顺序存储方式
D、数据在计算机中的逻辑结构的表示方式
A B C D

A、堆栈是一个先入后出的线性表
B、堆栈只能按顺序存储
C、堆栈具有记忆功能
没错。
A，log2n
B，n/2
C，n
D，n+1
A B C D
5。下列对线性链表的描述正确的是_ _ _ _
A、storage 空不一定是连续的，并且每个元素的存储顺序是任意的
B、storage 空不一定是连续的，并且必须将前任元素存储在后继元素的前面
C、storage 空。并且每个元素的存储顺序是任意的
A B C D
6。下列关于软件测试的描述正确的是_ _ _ _ _。
A、软件测试的目的是证明程序是否正确
B、软件测试的目的是使程序正确运行
C、软件测试的目的是尽可能多地发现程序中的错误
D、软件测试的目的是使程序符合结构化原则
A B C D.
A、模块的内聚性要尽可能高， 并且模块之间的耦合要尽可能的强
B，模块之间的耦合要尽可能的弱
C，模块之间的内聚要尽可能的低
D，模块之间的内聚要尽可能的低。
A、程序是软件
B、软件开发不受计算机系统的限制
C、软件既是逻辑实体又是物理实体
D、软件是程序、数据和相关文档的集合
A B C D
9。数据独立就是数据。所谓数据独立性是指_ _ _ _。
A、数据和程序是独立存储的
B、不同的数据存储在不同的文件中
C、不同的数据只能由相应的应用程序使用
D、以上三种说法不成立
A B C D
10 .用树形结构来表示。
A，关系模型
B，网状模型
C，层次模型
D，都是
A B C D
11。绘制一个名为Text1和a的文本框，程序运行后，如果在文本框中输入一个字符，则将命令按钮的标题设置为“计算机等级考试”。可以实现上述操作的事件流程有
A，private sub text 1 _ change()
command 1。caption = "计算机等级测试"
End Sub
B，private Sub command 1 _ click()
Caption = "计算机等级测试"
End Sub
C，private Sub form _ click()
text 1。caption = "计算机等级测试"
End Sub
D，Private Sub command 1 _ Click()
text 1。Text = "计算机等级考试"
End Sub
A B C D 12。设a=5，b=4，c=3，d=2，以下表达式的值为
3 > 2 * b或a = c且BC或。

13.设A =“Microsoft VisualBasic”，那么下列使变量B值为“visual basic”的语句是
A，b=Left(a，10)
B，b=Mid(a，10)
C，b = right (a

14.假设有以下form事件过程:
private subform _ click()
a $ = " Microsoft Visual Basic "
b $ = right(A $，5)
c $ = mid (a $，1，9) [ 34，B $，c $，5
End Sub
程序运行后，单击窗体，弹出信息框标题栏显示的信息为
A，Microsoft Visual

15.设a="a "，b="b "，c="c "，d="d "并执行语句x = IIf((a < b)或(c > d)，" A "，" B ")，x的值为
a。

16.为了使命令按钮(名为Command1)向右移动200，应该使用的语句是
A，Command1。移动-200
B，命令1。移动200
C，command 1 . left = command 1 . left+200[/br]

17.在窗体上画一个文本框，然后编写以下事件过程:
private subform _ Click()
x = InputBox("请输入一个整数")
printx+text 1 . text
end sub
程序运行时，在文本框中输入456，然后单击form，在输入对话框中输入123，单击确定。之后，表单上显示的内容是
A、123
B、456
C、579
D和123456a C D。

18.在窗体上绘制一个文本框和一个计时器控件，其名称分别为Text1和Timer1。在“属性”窗口中，将计时器的Interval属性设置为1000，将Enabled属性设置为False。程序运行后，如果单击命令按钮，当前时间将每秒显示在文本框中。下面是实现上述操作的程序:
private子命令1 _ click ()
timer1。_ _ _ _ _ _
end sub

private timer 1 _ timer()
text 1 . text = time
end sub
在_ _ _ _ _要填写的内容是
A，Enabled = True
B，enabled = false
。

19.假设图片框Picture1中加载了一个图形。为了清除图形(不删除图片框)，正确的方法应该是
a .选中图片框，然后按Del键
B，执行语句Picture1 . picture = load picture(" "
c，执行语句picture 1。Picture = ""
D，选择图片框，在属性窗口中选择图片属性栏，然后按enter键
a b c。

20.在窗体上绘制一个名为List1的列表框和一个名为Label1的标签。列表框中会显示几个项目。当您单击列表框中的项目时，选定项目的名称会显示在标签中。以下能正确实现上述操作的程序是
A、Private Sub list 1 _ Click()
label 1。caption = list 1 . listindex
end sub
b，私有sub list 1 _ click ()
Label1。Name= List1。ListIndex
End Sub
C、Private Sub list 1 _ Click()
label 1。Name = List1。Text
End Sub
D、Private Sub list 1 _ Click()
label 1。标题=列表1。text
结束Sub

公元21年。在窗体上绘制一个名为Command1的命令按钮，然后编写以下事件过程:
Private subcommand 1 _ click()
dim I As Integer，x As Integer
For i = 1到6
If I = 1 Then x = I
If I x = x+1
Else
x = x+2
End If
Next I
在x
之后

22.在窗体上绘制一个名为Command1的命令按钮，然后编写以下事件过程，
private subcommand 1 _ click()
c = " ABCD "
for n = 1to 4
print _ _
next
end sub
程序运行后，单击命令。要求在表格上显示以下内容:
D
CD
BCD
ABCD
那么在_ _ _ _要填写的内容是
A和左(c，n)
B。

23.执行以下程序段
dim x as integer，I as integer
x = 0
for I = 20 to step-2
x = x+I \ 5
next I

24.在Visual Basic工程中，可以用作“启动对象”的程序有
A、任何窗体或标准模块
B、任何窗体或过程
C、Sub Main过程或任何其他模块
D、Sub Main过程或任何窗体
a b c d。

25.假设建立了一个名为Command1的命令按钮数组，下列说法是错误的:
A、数组中每个命令按钮的名称(name属性)是Command1
B、数组中每个命令按钮的标题(Caption属性)是相同的
C、数组中所有命令按钮可以使用相同的事件过程[/br]

26.将窗体的KeyPreview属性设置为True，然后编写以下事件过程
private subform _ keypress(keyascii为整数)
dimch为string
ch = chr(keyascii)
keyascii = ASC(ucase(ch)]
在print chr(keyascii+2)
end sub
程序运行后，按键盘上的“A”键，窗体上显示的内容为[]

27.在窗体上绘制一个命令按钮和一个文本框，分别名为Command1和Text1。然后编写下面的程序:
Private subcommand 1 _ click()
A = InputBox("请输入日期(1 ~ 31)")
T = "旅游景点:" _
&IIF (A > 0和A&IIF) IIF (a > 20和A text 1 . text = T
end sub
程序运行后，如果从键盘输入16，则文本框中显示的内容为
A、旅游景点:

28.在窗体上绘制一个名为Label1的标签，然后编写以下事件过程:
private subform _ click()
dimarr(10，10) as integer
米蒂as integer，j As Integer
For i = 2到4
For j = 2到4
arr(i，j)= I * j
Next j
Next I
label 1。Caption = Str(arr(2，2)+arr(3，3))
End Sub
程序运行后，单击窗体。选项卡中显示的内容是
A，12
B，13
C，14
D。

A B C D

29.在窗体上画一个名为Command1的命令按钮，然后写出命令按钮的如下通用过程和事件过程:
私有函数fun (byval m为整数)
如果m mod 2 = 0那么
fun = 2
else
fun =

Private Sub命令1_Click()
Dim i As Integer，As Integer
s = 0
for I = 1 to 5
s = s+fun(I)
next I
prints s
end Sub
程序运行后，单击命令按钮。窗体上显示
A，6
B，7
C，8
D，9
A B C D 30。读取程序:
Option Base 1
Dimarr(

private Sub Form _ Click()
Dim I As Integer，j As Integer
ReDim arr(3，2)
For i = 1到3
For j = 1到2
arr(i，j)= I * 2+j
Next j
Next I
ReDim Preserve arr(3，4)
For j = 3到4
arr(3，j)= j+9[]

公元31年。在窗体上绘制一个名为Command1的命令按钮，然后编写以下程序:
Option Base 1
Private subcommand 1 _ Click()
Dim C As Integer，D As Integer
D = 0
C = 6
x = Array(2，4，6，8，10，12)
for I = 1to 6
if x(I)> C then
D = D+x(I

32.它有以下程序
private子命令1 _ click ()
dim c as integer，As integer
c = 4
d = InputBox("请输入一个整数")
do while d > 0
if d > c then
c = c+1
end if[在循环
print c+d
end sub
程序运行后，单击命令按钮。如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，输出结果是_ _ _ _
A、12
B、11
C、10
D、9
A B C D

33.在窗体上绘制一个名为Command1的命令按钮和一个名为Text1的文本框，在文本框中输入以下字符串:
Microsoft visual basic编程
然后编写以下事件过程:
private subcommand 1 _ click()
open " d:\ temp \ outf . txt " For Output As # 1
For I = 1 To Len(text 1。Text)
c=Mid(Text1.text，I，1)
If c>="A" And cPrint #1，Lcase(c)
ENDIF
NEXT I
CLOSE
END SUB
程序运行后，单击命令按钮。文件outf.txt中的内容是_ _ _ _ _
A、MVBP
B、mvbp
C、M
V
B
P
D、M
V
B
A B C D

34.在窗体上绘制一个名为Command1的命令按钮，然后编写以下程序:
Dim SW As Boolean

func(X为整数)为整数
If XY = X
Else
Y = 20+X
End If
func = Y
End func

private Sub Form _ MouseDown(Button As Integer，_
Shift As Integer，X As Single，Y As Single)
SW = False
End Sub

private Sub Form _ MouseUp(Button As Integer，_
Shift As Integer，X As Single，Y As Single)
SW = True
End Sub

private command 1 _ click()
dimintnum as integer
intnum = inputbox(" "
if SW then
print func(intnum)
end if
end sub[/br

25，那么程序的执行结果是_ _ _ _。
A，输出0
B，输出25
C，输出45
D，无输出
A B C D 35。一般有以下过程:
public sub fun(a()As integer，As integer)
for I = 1 to 5
x = x+a(I)
next
end sub
在窗体上绘制一个名为Text1的文本框和一个名为Command1的命令按钮。然后编写以下事件过程:
private subcommand 1 _ click()
dimarr(5)as integer，N as integer
for I = 1 to 5
arr(I)= I+I
next[/]N
text 1 . text = str(N)
end sub
程序运行后，单击命令按钮，文本框中显示的内容为_ _ _ _。[br/]A，30
B，25
C，20
D，15
A B C D
II。填空题(每个/[/k0输入中间没有空的答案:2。在面向对象的方法中，类的实例称为_ _ _ _ _。输入中间没有空的答案:3。程序中诊断和纠正错误的工作通常被称为_ _ _ _。输入中间不带空的答案:4。在关系数据库中，数据表示为二维表，每个二维表称为_ _ _ _。输入中间不带空的答案:5。对问题解决方案的正确完整描述叫做_ _ _ _。
输入中间不带空的答案:6。以下语句的输出结果是_ _ _ _ _。
print int(12345.6789 * 100+0.5)/100输入中间没有空的答案:7。在窗体上画一个文本框和一个图片框，然后写下面两个事件过程:
private sub-form _ Click()[/

private text 1 _ Change()
picture 1 . print“VB编程”
End sub
程序运行后，点击表单，文本框中显示的内容为_ _ _ _ _，图片框中显示的内容为_ _ _ _ _。
输入中间不带空的答案:8。输入前一个问题的答案，中间不带空:9。阅读下面的程序:
Private subform _ click()
Dim Check为布尔值，Counter为整数
Check = True
Counter = 5
Do
Do While Counter < 20
Counter = Counter+1
如果Counter=10，则
Check = false
exit Do
end If
循环
循环，直到Check = false为止
提供以下程序:
private subform _ click()
dim a As integer，As integer
n = 8
s = 0
do
s = s+n
n = n-1
loop while n > 0
prints s[/br程序运行后，单击form，输出结果为_ _ _ _。输入中间不带空的答案:11。输入上一个问题的答案，中间没有空框:12。提供了以下程序:
Option Base1
Private子命令1 _ click()
dim arr 1
dimin as integer，I integer
arr1 = array (12，435，76，-24，78，54，866，43)
Min = _ _ _ _ _ _
for I = 2to 8
ifar R1(Min
End Sub
函数请填写空。输入中间不带空的答案:13。输入前一个问题的答案，中间不带空:14。在名为Form1的窗体上绘制一个名为Text1的文本框，并在“属性”窗口中将文本框的MultiLine属性设置为True。然后编写下面的事件过程:
private subform _ click()
open " d:\ test \ sm text 1 . txt " for input as # 1
do while not _ _ _
line input # 1，aspect $
whole $ = whole $+aspect $+Chr $(13)+Chr &(10)
Loop
text 1。text = whole $
选择#1
Open "d:\test\ Sm2.txt "作为#1输出
print # 1，_ _ _ _ _ _
close # 1
end sub
以上程序的作用是将磁盘文件smtext2.txt的内容读入内存并显示在文本框中，
然后将Please fill in 空。输入中间不带空的答案:15。输入前一个问题的答案，中间不带空: