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

一、选择题(每题2分，共70分)
1。下列说法正确的是
A、算法的执行效率与数据存储结构无关
B、算法的空复杂度是指算法程序中指令(或语句)的数量
C、算法的有限性是指算法必须能B c d
2。下面这些不是线性的数据结构是
A，队列
B，线性表
C，二叉树
D，栈
A B C D
3。在公元32年，公元前15年。在下面的描述中，三个基本的控制结构
A、使用顺序、选择和重复(循环)代表程序的控制逻辑
B、模块只有一个入口，可以有多个出口
C、注意提高程序的执行效率
D、不要使用goto语句
A B C D
5。在以下概念中，不属于面向对象方法的有
A、对象
B、继承
C、类
D、过程调用
A B C D
6。在结构化方法中，使用DFD作为描述工具的软件开发阶段是
A、可行性分析
B、需求分析
C、详细设计
D、程序编码
A B C D
7。在软件开发中，下列不属于设计阶段的任务是
A、数据结构设计
B、系统模块结构
C、模块算法定义
D、需求定义和系统模型建立
A B C D
8。数据库系统的核心是[/br软件工具
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，Text1。Maxlength=0
B，Text1。Enabled=False
C，Text1。Visible=False
D，text1.width = 0
a b c d [设置此菜单命令的访问键，即当您按Alt和字母O时，可以执行“打开”命令。在菜单编辑器中设置“打开”命令的方式是
A、Caption属性设置为&Open
B、Caption属性设置为O&pen
C、Name属性设置为&Open
D、Name属性设置为O&pen
14。在窗体上绘制一个名为Command1的命令按钮，然后编写以下事件过程:
Private subcommand 1 _ Click()
X = InputBox(" input ")
Select Case X
Case 1，3
Print " branch 1 "
Case Is > 4
Print " branch 2 "
Case Else
Print " Else branch "/br/]end Select
end sub如果输入2下列关于MsgBox的说法错误的是
A，MsgBox函数返回一个整数
B，信息框中的图标和按钮类型可以由MsgBox函数设置
C，MsgBox语句没有返回值
D，MsgBox函数的第二个参数是一个整数，这个参数只能确定对话框中显示的按钮个数
A B C D
16。在窗体上绘制一个名为Timer的计时器控件，该控件要求每0.5秒发生一次计时事件。下列正确的属性设置语句是
A，Timer。间隔=0.5
B，定时器。时间间隔=5
C，计时器。Interval=50
D，timer . interval = 500

Private Sub command 1 _ Click()
Static x As Integer
Cls
For I = 1 To 2
y = y+x
x = x+2
Next
Print x，在y
End Sub
程序运行后，在 而且还要清除内存中的窗体
b .在多窗体程序中，每个窗体的菜单是相互独立的
c .在多窗体程序中，你可以根据需要指定启动窗体
d .对于多窗体程序，你需要单独保存每个窗体
A B C D
19 . 下列合法的Visual Basic标识符是
A、ForLoop
B、Const
C、9abc
D、a # x
a. 20。表达式5 Mod 3+3*2的值为
A，0
B，2
C，4
D，6
A B C D
21。设x=4。以下表达式的值为
xz)或zA，1
B，-1
C，True
D，False
A B C D
22。在窗体上绘制一个名为Command1的命令按钮，然后编写以下事件过程:
private subcommand 1 _ Click()
a $ = " visual basic "
print string(3，a $)
end sub
单击命令按钮程序运行后，窗体上显示的内容为
A、VVV
B、Vis
C、sic
D、ll
A B C D
下面的程序段
x = 2 [ Next
运行上述程序后，x的值为
A，36
B，27
C，38
D，57
A B C D
24。以下语句中的错误是
A，在key ]C，在KeyDown和KeyUp事件中，“A”和“A”被视为同一个字母
D，在KeyDown和KeyUp事件中，大键盘的“1”输入和小键盘的“1”输入被视为不同的字符
A B C D
25..然后编写以下事件过程:
private subcommand 1 _ click()
common dialog 1 . filename = " "
common dialog 1 . filter = " all file | *。* | (*.doc) | *。doc | (*。txt) | *。txt "
common dialog 1 . filter index = 2
common dialog 1 . dialog title = " VB test "
common dialog 1 . action = 1
end sub
对于这个程序，以下描述中错误的是
A、这个对话框设置为“打开”对话框
B、这个对话框中指定的默认文件名是空
C、这个对话框的标题是..26.建立一个由两个表单组成的项目，名称分别为Form1和Form2，Form1上有一个名为Command1的命令按钮。Form1的程序代码如下:
Private subcommand 1 _ click()
dim A As Integer
A = 10
call g(Form 2，A)
End Sub
Private Sub g(f As Form，x As Integer)
y = IIf(x > 10，100，-100)
f . show
f . Caption = y
End Sub Form2的Caption属性值为-100
C，Form1的Caption属性值为-100
D，Form2的Caption属性值为100
a b c d [ 27。 在窗体上绘制一个名为Comman1的命令按钮，并编写以下程序:
private subcommand 1 _ click()
dim x as integer
static Y as integer
x = 10
Y = 5
call f1(x，Y)
print x，Y
end sub
private sub f1(x1 as integer，y1 as integer)
x1 = x1+2
y1单击命令按钮，窗体上显示的内容为
A，10 ^ 5
B，12 ^ 5
C，10 ^ 7
D，12 ^ 7
A B C D
28。提供了以下程序
选项Base1。br/]Dim a(10)As Integer
Dim n As Integer
n = InputBox(" input data ")
If n < 10 then
call get array(a，n)
End If
End Sub
Private Sub get array(b()As Integer，n As Integer)
Dim c(10)As Integer
j = 0
For I = 1到n[] 2然后
j = j+1
c(j)= B(I)
end if
next
print j
end sub
下面程序中的错误是[程序结束时，表单上显示的C数组中的元素个数
C，GetArray过程的参数n是按值传递的
D，如果输入数据大于10，则没有信息 在窗体上绘制一个名为Command1的命令按钮，然后编写以下事件过程:
option base 1
private subcommand 1 _ click()
dim A
A = array(1，2，3，4，5)
For I = 1 to UBOUND(A)
A(I)= A(I)+I-1
Next
Print A(3)
End Sub
C，6
D，7
A B C D
30。reader
Option Base 1[/]Sum
Sum = 0
arr = Array(1，3，5，7，9，11，13，15，17，19)
For i = 1到10
If arr(I)/3 = arr(I)\ 3 Then
Sum = Sum+arr(I)
end If
next I
print Sum
end在窗体上画一个名为File的文件列表框，编写如下程序:
private subfile 1 _ dblclick()
X = shell (file1 . filename，1)
end sub
在下面对这个程序的描述中，错误在于
A和X没有实际作用，因此，语句可以写成:调用Shell(File 1。fileName，1)
B、双击文件列表框中的文件会触发事件进程
C、要执行的文件的名称由File指定。FileName
D，该文件显示当前驱动器和当前目录中的文件。33 . a b c d。执行下面的程序段
a $ = " abbacdcba "
for I = 6t 2 step-2
x I)
Z = Right(A，I)
Z = ucase(x & y & Z)
next I
print Z
输出结果为
A，ABA
B，BBABBA
C和ABBABA。34.在窗体上绘制一个名为Command1的命令按钮，然后编写以下程序:
Option base 1
Private subcommand 1 _ Click()
Dim A as Variant
A = Array(1，2，3，4，5)
Sum = 0
For I = 1 To 5
Sum = Sum+A(I)
Next I
x = Sum/5
For I = 1 To
在下一个I
end sub
程序运行后，单击命令按钮。表格1上显示的内容是
A，1 ^ 2
B，1 ^ 2 ^ 3
C，3 ^ 4 ^ 5
D，4 5。
模型1代码如下:
public x as integer
public Y as integer
sub S1()
x = 1
S2
end sub
sub S2()[Y = 10
form 1 . show
end sub
模型2代码如下:
sub Main()
S1
end sub
程序运行后，各模块的执行顺序为
A、form1→Model1→Model2
B、Model1→Model2→Form1
C、Model2→Model1→Form1
D、Model2 → Form1 → Model1
A. 0/]题(每题空 2分，共30分)
1。算法的复杂度主要包括_ _ _复杂度和空复杂度。
输入中间没有空的答案:
2。数据的逻辑结构存储在计算机存储室空，称为数据的_ _ _ _。
输入中间没有空的答案:
3。根据功能的不同，软件测试方法通常分为白盒测试方法和盒子测试方法。
输入中间没有空的答案:
4。如果一个工作人员可以管理多台设备，而一台设备只能由一个工作人员管理，则实体“工作人员”与实体“设备”之间存在_ _ _ _关系。
输入中间没有空的答案:
5。关系数据库管理系统可以实现的特殊关系操作包括选择、连接和_ _ _ _。
输入中间不带空的答案:
6。这个程序的功能是模拟抛硬币，每次随机产生一个0或1的整数。
相当于抛硬币，1代表正面，0代表方面。表单上有三个文本框，分别命名为
Text1、Text2、Text3，分别用来显示用户输入的硬币总数、正反面的次数
。如图所示，程序运行后，在文本框中输入一种输入次数，然后点击“开始”按钮，
根据输入次数模拟硬币。以下是实现以上
的程序，请填写空。

private sub command 1 _ click()
Randomize
n = Cint(text 1。text)
n1 = 0
N2 = 0
For I = 1 to _ _ _ _
r = Int(Rnd * 2)
If r = _ _ _ _ Then
n1 = n1+1
Else
N2 = N2+1
End If
Next
text 2 .Text = n1
Text3。text = N2
End Sub

输入中间不带空的答案:
7。输入上一个问题的答案
，中间不带空:
8。阅读程序:
开放base 1
私有sub。
for I = 1to 3
a(I)= InputBox("输入数据")
Print a(I)；
Next
Print
If a(1)< a(2)Then
t = a(1)
a(1)= a(2)
a(2)= _ _ _
End If
If a(2)> a(3)Then
M = a(2)
else If a(1)> a(3)Then
M = _ _ _
M
END SUB
程序运行后，点击表单，在输入对话框中输入三个整数，程序将输出三个数的中间数。请如图所示填写空。

输入中间没有空的答案:
9。输入上一个问题的答案
，中间不带空:10。输入上一个问题的答案
，中间不带。名为Label2的标签用于显示计算结果，其Caption属性的初始值为空；标签3标注为“计算结果”。运行程序时会自动生成三个随机整数，显示在标签数组的每个标签中，如图。单击“计算”按钮，累加标签数组中每个元素的值，然后在Label2中显示计算结果。请填写空。

Private Sub命令1 _ Click()
Sum = 0
For I = 0到4
Sum = Sum+_ _ _ _
Next
_ _ _ _ = Sum
End Sub

输入中间不带空的答案:
12。在窗体上绘制两个命令按钮，分别名为Command1和Command2，标记为Initialize和Sum。程序更新后，如果点击“初始化”命令按钮，给数组A的每个元素赋值；如果单击“求和”命令按钮，就会找到数组A的元素之和并显示在文档中，如图所示。请填写空。

Option Base 1
Dim a(3，2)为整数

Private Sub命令1_Click()
For i=1到3
For j=1到2
_ _ _ _ = I+j
Next j
End Sub

private Sub command 2 _ Click()[/Br/]For I = 1 To 3[/Br/]For j = 1 To 2[/Br/]s = s+_ _ _ _ _ _ _[/Br/]Next j[/Br/]Next I[/Br/]text 1 . text = _ _ _ _ _ _ _[/Br/]End Sub[/Br/][/Br/]输入中间不带空的答案:
13 .输入上一个问题的答案
，中间不带空:14。上一个问题