计算机二级VB考试试题及答案
网络管理软件及网络通信协议的管理和协调下，实现资源共享和信息传递的计算机系统。下面是小编整理的关于计算机二级VB考试试题及答案，欢迎大家参考!
计算机二级VB考试试题及答案 1
一 、选择题
(1)假设线性表的长度为n，则在最坏情况下，冒泡排序需要的比较次数为
A)log2n
B)n2
C)O(n1..5)
D)n(n-1)/2
正确答案: D
(2)算法分析的目的是
A)找出数据结构的合理性
B)找出算法中输入和输出之间的关系
C)分析算法的易懂性和可靠性
D)分析算法的效率以求改进
正确答案: D
(3)线性表L=(a1,a2,a3,…ai，…an)，下列说法正确的是
A)每个元素都有一个直接前件和直接后件
B)线性表中至少要有一个元素
C)表中诸元素的排列顺序必须是由小到大或由大到小
D)除第一个元素和最后一个元素外，其余每个元素都有一个且只有一个直接前件和直接后件
正确答案: D
(4)在单链表中，增加头结点的目的是
A)方便运算的实现
B)使单链表至少有一个结点
C)标识表结点中首结点的位置
D)说明单链表是线性表的'链式存储实现
正确答案: A
(5)软件工程的出现是由于
A)程序设计方法学的影响
B)软件产业化的需要
C)软件危机的出现
D)计算机的发展
正确答案: C
(6)软件开发离不开系统环境资源的支持，其中必要的测试数据属于
A)硬件资源
B)通信资源
C)支持软件
D)辅助资源
正确答案: D
(7)在数据流图(DF
D)中，带有名字的箭头表示
A)模块之间的调用关系
B)程序的组成成分
C)控制程序的执行顺序
D)数据的流向
正确答案: D
(8)分布式数据库系统不具有的特点是
A)数据分布性和逻辑整体性
B)位置透明性和复制透明性
C)分布性
D)数据冗余
正确答案: D
(9)关系表中的每一横行称为一个
A)元组B)字段
C)属性D)码
正确答案: A
(10)下列数据模型中，具有坚实理论基础的是
A)层次模型
B)网状模型
C)关系模型
D)以上3个都是
二、综合应用题
【审题分析】本题源程序已提供 Writedate 自定义过程，需编写"读数"、"计算"和"保存"命令的单击事件过程。程序设计思路：在"读数"按钮的单击事件过程中，用 Open 语句以 Input 方式打开数据文件 dr1.dat， For 循环语句(初值为 1，终值为 100)将数据文件中的数据用 Input 语句依次读出并赋值给数组元素 arr(i)，同时显示在文本框中，为使数据间保持一定间隔，每个数据后用 Space(5)加入 5 个空格;在"计算"按钮的 Click 事件过程中，利用 For 循环语句(循环变 i 的初值为 1，终值为 100)依次将数组 arr 中小于或等于 300 的元素的值显示在文本框中(条件表达式为：arr(i)<=300)，并将其值累加到变Sum，循环结束后将结果显示在窗体上。在"保存"按钮的 Click 事件过程中，调用WriteData 过程将文本框中的值写入数据文件 dw1.dat。
【操作步骤】
步骤 1：新建一个"标准 EXE"工程，按下表在窗体中画出控件并设置其相关属性。
步骤 2：选择【工程】?【添加模块】命令，打开添加模块对话框，将考生文件夹下的model.bas 添加到当前工程中。
步骤 3：在代码编辑窗口编写以下事件过程。
参考代码：
Dim arr(1 To 100) As Integer
Private Sub Cmd1_Click()
Txt1.Text = ""
Open App.Path & "\dr1.dat" For Input As #1
For i = 1 To 100
Input #1, arr(i)
Txt1.Text = Txt1.Text & arr(i) & Space(5)
Next
Close #1
End Sub
Private Sub Cmd2_Click()
Dim sum As Integer
For i = 1 To 100
If arr(i) <= 300 Then
sum = sum + arr(i)
End If
Next
Txt1.Text = sum
End Sub
Private Sub Cmd3_Click()
writedata "dw1.dat", Txt1.Text
End Sub
步骤 4：按要求将文件保存至考生文件夹中。
计算机二级VB考试试题及答案 2
一、单选题
1. 以下叙述中错误的是（ ）。
A. Visual Basic是事件驱动型可视化编程工具
B. Visual Basic应用程序不具有明显的开始和结束语句
C. Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
D. Visual Basic中控件的某些属性只能在运行时设置
答案：C。例如，定时器（Timer）控件就没有宽度（Width）和高度（Height）属性。
2. 在Visual Basic中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是（ ）。
A. Load
B. Show
C. Hide
D. Unload
答案：A。Load语句用于将窗体加载到内存进行预处理，Show用于显示窗体，Hide用于隐藏已显示的窗体，Unload用于从内存中卸载窗体。
3. 以下变量名中合法的是（ ）。
A. x - y
B. Print
C. 12abc
D. count_1
答案：D。变量名不能包含特殊字符（除了下划线），不能是关键字（如Print），不能以数字开头。
4. 设a = 5，b = 4，c = 3，d = 2，下列表达式的值是（ ）。
3 > 2 * b Or a = c And b <> c Or c > d
A. 1
B. True
C. False
D. 2
答案：B。先计算乘除运算，再计算比较运算，最后计算逻辑运算。2*b = 8，3>8为False；a = c为False，b<>c为True，False And True为False；c>d为True，False Or False Or True结果为True。
5. 在Visual Basic中，为了把一个记录型变量的内容写入文件中指定的位置，要使用（ ）语句。
A. Get
B. Put
C. Print
D. Input
答案：B。Put语句用于将一个变量的数据写入磁盘文件中指定的位置，Get用于从文件中读取数据，Print主要用于在窗体或打印机等输出文本，Input用于从文件等读取数据到变量。
6. 在Visual Basic中，要设置菜单项的快捷访问键，应使用（ ）符号。
A. &
B. *
C. $
D. @
答案：A。在菜单标题的某个字符前加上“&”符号，就可以通过“Alt + 字符”来访问该菜单项。
7. 在VB中，若要使标签控件（Label）显示时不覆盖其背景内容，要对（ ）属性进行设置。
A. BackColor
B. BorderStyle
C. ForeColor
D. BackStyle
答案：D。BackStyle属性用于设置标签是否透明，0表示透明（不覆盖背景内容），1表示不透明。BackColor是背景颜色，BorderStyle是边框样式，ForeColor是前景色（文字颜色）。
8. 以下关于数组的说法错误的是（ ）。
A. 数组是一组相同类型的数据的集合
B. 数组的下标从0开始
C. 可以使用ReDim语句改变数组的大小，但不能改变数组的维数
D. 动态数组在声明时可以确定数组的大小
答案：D。动态数组在声明时不能确定数组的大小，使用ReDim语句在程序运行过程中确定大小。
9. 在Visual Basic中，以下关于过程的说法正确的是（ ）。
A. 过程的定义可以嵌套，但过程的调用不能嵌套
B. 过程的定义不可以嵌套，但过程的调用可以嵌套
C. 过程的定义和调用都可以嵌套
D. 过程的定义和调用都不可以嵌套
答案：B。过程定义不能嵌套，即不能在一个过程内部定义另一个过程，但过程调用可以嵌套，一个过程可以调用其他过程，而被调用的过程还可以再调用其他过程。
10. 在VB中，要在列表框（ListBox）中添加一个项目，可使用（ ）方法。
A. Add
B. AddItem
C. Insert
D. InsertItem
答案：B。ListBox控件使用AddItem方法添加项目。
二、填空题
1. 在VB中，表达式Abs(-3.6) * Sqr(100)的.值是______。
答案：36。Abs函数返回绝对值，Sqr函数返回平方根，Abs(-3.6)=3.6，Sqr(100)=10，3.6*10 = 36。
2. 在VB中，设a = 3，b = 4，执行语句c = IIf(a > b, a, b)后，c的值是______。
答案：4。IIf函数根据条件返回不同的值，条件a>b不成立，所以返回b的值。
3. 在VB中，要使文本框（TextBox）中的内容只能读不能写，应将______属性设置为True。
答案：Locked。Locked属性设置为True时，文本框内容只读。
4. 若有数组声明语句Dim a(3, 4) As Integer，则数组a包含______个元素。
答案：20。二维数组元素个数为第一维长度乘以第二维长度，这里是(3 + 1)×(4 + 1)=20。
5. 在VB中，设x是一个整型变量，判断x是否为偶数的表达式是______。
答案：x Mod 2 = 0。Mod是取余运算，当x除以2的余数为0时，x是偶数。
三、程序阅读题
1. 阅读以下程序：
Private Sub Form_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 10
If i Mod 2 = 0 Then
s = s + i
End If
Next i
Print s
End Sub
（1）程序运行后，单击窗体，输出结果是______。
答案：30。程序计算1到10之间偶数的和，偶数有2、4、6、8、10，它们的和为30。
（2）将If语句中的条件“i Mod 2 = 0”改为“i Mod 3 = 0”，输出结果是______。
答案：18。此时计算1到10中能被3整除的数的和，这些数是3、6、9，和为18。
2. 阅读以下程序：
Function f(n As Integer) As Integer
If n = 1 Then
f = 1
Else
f = n * f(n - 1)
End If
End Function
Private Sub Form_Click()
Dim x As Integer
x = f(5)
Print x
End Sub
（1）程序运行后，单击窗体，输出结果是______。
答案：120。这是一个递归函数，计算5的阶乘，5! = 5×4×3×2×1 = 120。
（2）如果将函数中的递归调用语句“f = n * f(n - 1)”改为“f = (n - 1) * f(n - 2)”，输出结果是______。
答案：24。此时计算的是4的阶乘，4! = 4×3×2×1 = 24。
四、程序填空题
1. 以下程序的功能是计算1到100之间能被3整除的数的个数。
Private Sub Form_Click()
Dim i As Integer, count As Integer
count = （1）______
For i = 1 To 100
If （2）______ Then
count = count + 1
End If
Next i
Print count
End Sub
（1）处应填______。
答案：0。初始化计数器为0。
（2）处应填______。
答案：i Mod 3 = 0。判断i是否能被3整除。
2. 以下程序的功能是在列表框List1中添加10个随机整数（1到100之间），然后找出其中的最大值并显示在标签Label1中。
Private Sub Form_Load()
Dim i As Integer, max As Integer, a As Integer
Randomize
List1.Clear
For i = 1 To 10
a = Int(Rnd * 100) + 1
List1.AddItem （1）______
Next i
max = （2）______
For i = 0 To List1.ListCount - 1
If List1.List(i) > max Then
max = （3）______
End If
Next i
Label1.Caption = "最大值是：" & max
End Sub
（1）处应填______。
答案：CStr(a)。将随机整数转换为字符串添加到列表框中。
（2）处应填______。
答案：Val(List1.List(0))。初始化最大值为列表框中的第一个元素（转换为数值类型）。
（3）处应填______。
答案：Val(List1.List(i))。更新最大值为当前比较的较大值。
【计算机二级VB考试试题及答案】相关文章：
计算机二级vb考试试题及答案12-17
计算机二级vb考试试题（附答案）02-26
计算机二级VB上机试题及答案03-14
2016年计算机二级VB模拟试题及答案03-11
2017全国计算机二级VB考试试题03-06
计算机二级考试模拟试题及答案03-13
计算机二级考试试题及答案10-23