计算机二级VB考试题型
计算机二级VB考试题型分为两部分，选择题40个（40分），上机操作题3个（60分）。
选择题中，公共基础知识10个（10分）；VB基础知识及应用30个（30分），其中侧重基础理论的大约10个题，侧重应用的大约20题。
上机题包括基本操作题（包含2小题）、简单应用题（包含两小题）和综合应用题（只有1题）三个部分，分值分别为18、24、18。
以下是最近一次计算机二级VB考试的真题，大家可以看看，这样对计算机二级VB考试题型就心中有数，考试时信心也会增加了。
一、单选题。
（1）下列数据结构中，属于非线性结构的是
（2）在下列链表中，能够从任意一个结点出发直接访问到所有结点的是
（3）下列与栈结构有关联的是
（4）下面对软件特点描述不正确的是
（5）下面属于黑盒测试方法的是
（6）下面不属于软件设计阶段任务的是
（7）数据库管理系统是
（8）在E-R图中，表示实体的图元是
（9）有两个关系R和T 如下
R T
A B C A C
a 1 2 a 2
b 4 4 b 4
c 2 3 c 3
d 3 2 d 2
则由关系R得到关系T的操作是
（10）对图书进行编目时，图书有如下属性：ISBN书号，书名，作者，出版社，出版日期。能作为关键字的是
（11）下列关于Visual Basic标准模块的描述中，错误的是
（12）下列变量名中合法的是
（13）表达式 66 \ 8 mod 5 & "avg" 的值是
（14）下列能正确计算s=1+2+…… +100的程序段是
（15）设有如下程序：
Private Sub Form_Click（）
a = 10: b = 20
x = a = b
Print x
End Sub
程序运行后，单击窗体，输出结果为
（16）在面向对象的程序设计中，对象可以执行的操作和可被对象识别的动作分别被称为
（17）下列说法中，错误的是
（18）设有如下程序：
Private Sub Command1_Click（）
Dim i As Integer, j As Integer
For i = 1 To 10
i = i + j
j = j + 1
Next i
End Sub
程序运行后，单击命令按钮Command1，循环执行的次数为
（19）设有如下程序：
Private Sub Command1_Click（）
Dim m As Integer, n As Integer
m = 1
For n = 1 To 5
m = m * n
If m > 15 Then
Exit For
Else
n = n + 1
End If
Next n
Print m; n
End Sub
程序运行后，单击命令按钮Command1，输出结果为
（20）设有如下程序：
Private Sub Form_Click（）
Dim a, k As Integer
Dim n As Integer, s As Integer
a = Array（1, 1, 1, 2, 2, 2）
For k = LBound（a） To UBound（a）
n = n + k
s = s + a（k）
Next
Print n; s
End Sub
程序运行后，如果单击窗体，则在窗体上输出的内容为：
（21）窗体上有一个文本框，用于接收正整数。为保证输入数据的合法性 （即正整数），可以在该数据输入结束后准备继续其他操作时进行数据的合法性检查。为实现上述目的，应选用的事件是
（22）设有如下程序：
Private Sub Command1_Click（）
Dim a（10） As Integer
Dim i As Integer, n As Integer
n = 6
For i = 1 To n
a（i） = i * i
Next i
For i = 1 To n / 2
temp = a（i）
a（i） = a（n - i）
a（n - i） = temp
Next i
For i = 1 To n
Print a（i）;
Next
End Sub
程序运行后，单击命令按钮Command1，输出结果为
（23）工程中包含Form1、Form2两个窗体，Form1是启动窗体，两个窗体上都有名称为 Label1的标签和名称为Command1的命令按钮，窗体外观分别如图1、图2所示：
Form1的事件过程如下：
Private Sub Command1_Click（）
Form2.Show
End Sub
Form2中的事件过程如下：
Private Sub Command1_Click（）
Label1.Caption = Form1.Label1.Caption
End Sub
关于以下程序，下面叙述中错误的是
（24）窗体上有一个名称为Dir1的目录列表框，一个名称为File1的文件列表框。当改变目录列表框的内容时，文件列表框的内容应该与之同步改变。为实现两控件同步操作，应该使用的事件过程是
（25）列表框List1中没有数据项，现编制如下程序：
Private Sub Command1_Click（）
For i = 1 To 6
List1.AddItem i
Next i
For i = 5 To 3 Step -1
List1.RemoveItem i
Next i
End Sub
程序运行后，单击命令按钮Command1，则列表框List1中的数据项为
（26）一个工程文件中含有窗体Form1、Form2和标准模块Model1。如果Form1的声明部分有语句Private x As Integer，且Model1中有语句Public y As Integer，则下列说法中，正确的是
（27）下列关于文件及其操作的描述中，正确的是
（28）下列操作说明中，错误的是
（29）在窗体上画一个名称为CD1的通用对话框，并编写如下程序：
Private Sub Command1_Click（）
CD1.Filter = "所有文件（*.*）|*.*|文本文件（*.txt）|*.txt|Word文档（*.doc）|*.doc"
CD1.FilterIndex = 2
CD1.Action = 2
End Sub
运行程序，并单击命令按钮Command1，下面描述中正确的是
（30）下列关于Visual Basic菜单的叙述中，错误的是
（31）下列关于Sub Main过程的描述中，错误的是
（32）设有如下程序：
Private Sub Command1_Click（）
Dim i As Integer
str1 = InputBox（"输入一个字符串"）
str2 = ""
i = 0
Do While i < Len（str1） / 2
str2 = str2 + Mid（str1, i + 1, 1）
str2 = str2 + Mid（str1, Len（str1） - i, 1）
i = i + 1
Loop
Print str2
End Sub
程序运行后，单击命令按钮Command1，在弹出的输入对话框中输入“abcdef”，则输出结果为
（33）命令按钮Command1的单击事件过程如下：
Private Sub Command1_Click（）
Dim x As String
Dim y As String
x = InputBox（"输入字母", "输入"）
y = IIf（（ucase9x） <> "A", "表达式1", "表达式2"）
Print y
End Sub
运行程序，单击命令按钮，在弹出的输入对话框中输入“ a”，则以下描述中正确的是
（34）设有如下程序：
Sub proc（x（） As Integer）
Static i As Integer
Do
x（i） = x（i） + x（i + 1）
i = i + 1
Loop While i < 2
End Sub
Private Sub Command1_Click（）
Dim a（5） As Integer, i As Integer
For i = 0 To 4
a（i） = i + 1
Next i
Call proc（a）
Call proc（a）
For i = 0 To 4
Print a（i）;
Next i
End Sub
程序运行后，单击命令按钮Command1，输出结果为
（35）以下程序将随机产生n个两位整数，并使用冒泡法将它们按递增顺序排序后输出。
Option Base 1
Private Sub Command1_Click（）
Dim a（） As Integer
Dim i As Integer, j As Integer
Randomize
n = InputBox（"输入数据个数"）
ReDim a（n）
For i = 1 To n
a（i） = Int（Rnd * 90） + 10
Next i
For i = 1 To n - 1
For j = 1 To n - i
If a（j） < a（j - 1） Then
temp = a（j）： a（j） = a（j - 1）： a（j - 1） = temp
End If
Next j
Next i
For i = 1 To n
Print a（i）;
Next i
End Sub
运行以上程序，发现有错误，需要对j循环的开始语句进行修改。以下正确的修改是。
第二部分：上机操作，点击这里查看计算机二级VB上机考试题型，../news/2608.html
