上半年计算机二级考试VB真题（完整版）
在学习、工作中，我们最少不了的就是练习题了，只有认真完成作业，积极地发挥每一道习题特殊的功能和作用，才能有效地提高我们的思维能力，深化我们对知识的理解。什么样的习题才是好习题呢？下面是小编为大家收集的上半年计算机二级考试VB真题（完整版），欢迎大家分享。
上半年计算机二级考试VB真题 1
一、选择题(每小题2分)
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂在答题卡相应位置上，答在试卷上不得分。
(1) 下列叙述正确的是( )。
A) 循环队列是队列的一种链式存储结构
B.循环队列是队列的一种顺序存储结构
C.循环队列是非线性结构
D.循环队列是一种逻辑结构
(2)下列叙述正确的是( )。
A) 栈是一种先进先出的线性表
B.队列是一种后进后出的线性表
C.栈和队列都是非线性结构
D.以上三种说法都不对
(3)一棵二叉树共有25个结点，其中5个是叶子结点，则度为1的结点数为( )。
A.16
B.10
C.6
D.4
(4)在下列模式中，能够给出数据库物理存储结构与物理存取方法的是( )。
A.外模式
B.内模式
C.概念模式
D.逻辑模式
(5)在满足实体完整性约束的条件下( )。
A.一个关系中应该有一个或多个候选关键字
B.一个关系中只能有一个候选关键字
C.一个关系中不许有多个候选关键字
D.一个关系中可以没有候选关键字
(6)设有打开文件的语句如下：
Open“test.dat” For Random As #1
要求把变量a中的数据保存到该文件中，应该使用的语句是( )。
A. Inpur #1，a
B. Write #1.a
C. Put #1，.a
D. Get #1..a
(7)软件生命周期中的活动不包括( )。
A.市场调研
B.需求分析
C.软件测试
D.软件维护
(8)下面不属于需求分析阶段任务的是( )。
A.确定软件系统的功能需求
B.确定软件系统的性能需求
C.需求规格说明书评审
D.制定软件集成测试计划
(9)在测试方法中，设计测试用例的主要根据是( )。
A.程序内部逻辑
B.程序外部功能
C.程序数据结构
D.程序流程图
(10)在软件设计中不使用的工具是( )。
A.系统结构图
B.PAD图
C.数据流图(DFD图)
D.程序流程图
(11)以下合法的VB变量名是( )。
A.case
B.name10
C.t-name
D.x*y
(12)设x是小于10的非负数。对此陈述，以下正确的VB表达式是( )。
A.0≤x<10
B.0<=x<10
C.x>=0 and x<10
D.x>=0 or x<=10
(13)以下关于窗体的叙述中错误的是( )。
A.窗体的Name属性用于标识一个窗体
B.运行程序时，改变窗体大小，能够触发窗体的Resize事件
C.窗体的Enabled属性为False时，不能响应单击窗体的事件
D.程序运行期间，可以改变Name属性值
(14)下面定义窗体级变量a的语句中错误的是( )。
A.Dim a%
B.private a%
C.Private a As Integer
D.Static a%
(15)表达式Int(Rnd(0)*50)所产生的随机数范围是( )。
A. (0，50)
B. (1，50)
C. (0，49)
D. (1，49)
(16)设x=5，执行语句Print x=x+10，窗体上显示的是( )。
A.15
B.5
C.True
D.False
(17)设有如下数组声明语句：
Dim arr(-2 to 2,0 to 3)AS Integer
该数组所包含的数组元素个数是( )。
A.20
B.16
C.15
D.12
(18)现有由多个单选按钮构成的控件数组，用于区别该控件数组中各控件的属性是( )。
A.Name
B.Index
C.Caption
D.Value
(19)有如下程序：
Private Type stu
X As String
Y As Integer
End Type
Private Sub Command1_Click()
Dim a As stu
a.x=”ABCD”
a.y=12345
Print a
End Sub\
程序运行时出现错误，错误的原因是( )。
A. Type定义语句没有放在标准模块中
B. 变量声明语句有错
C. 赋值语句不对
D. 输出语句Print不对
(20)设程序中有如下语句：
X=inputbox(“输入”,“数据”,100)
Print X
运行程序，执行上述语句，输入5并单击输入对话框上的“取消“按钮，则窗体上输出( )。
A.0
B.5
C.100
D.空白
(21)现有如下一段程序：
Option Base 1
Private Sub Command1_Click()
Dim a
a=Array(3,5,7,9)
x=1
For i=4 to 1 Step -1
S=s+a ( i )*x
x=x*10
Next
Print s
End Sub
执行程序，单击Command1命令按钮，执行上述事件过程，输出结果是( )。
A.9753
B.3579
C.35
D.79
(22)设有一个命令按钮Commsand1的事件过程以及一个函数过程。程序如下：
Private Sub Command1_Click(0
Static x As Integer
x=f(x+5)
Cls
Print x
End Sub
Private Funtion f(x As integer)As Integer
F=x+x
End Funtion
连续单击命令按钮3次，第3次单击命令按钮后，窗体上显示的计算结果是( )。
A.10
B.30
C.60
D.70
(23)以下关于菜单设计的叙述中错误的是( )。
A.各菜单项可以构成控件数组
B.每个菜单项可以看成是一个控件
C.设计菜单是，菜单项的“有效” 表选，即’□有效(E)’,表示该菜单项不显示
D.菜单项只响应单击事件
(24)以下关于多窗体的叙述中，正确的'是( )。
A.任何时刻，只有一个当前窗体
B.向一个工程添加多个窗体，存盘后生成一个窗体文件
C.打开一个窗体时，其他窗体自动关闭
D.只有第一个建立的窗体才是启动窗体
(25)窗体上有一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令按钮，并有如下事件过程：
Private Sub Command1_Click()
CommandDialog1.DefaultExt=”doc”
CommandDialog1.FileName=”VB.txt”
CommandDialog1.FileName=”All(*.*)|*.*|Word|*.Doc|”
CommandDialog1.FileName=1
CommandDialog1.ShowSave
End Sub
运行上述程序，如下叙述正确的是( )。
A. 打开的对话框中文件“保存类型”框中显示“All(*.*)”
B. 实现保存文件的操作，文件名是VB.txt
C. DefaultExt属性与FileName属性所指明的文件类型不一致，程序出错
D. 对话框的Filter属性没有指出txt类型，程序运行出错
(26)设程序中有如下数组定义和过程调用语句：
Dim a(10) As Integer
……
Call p(a)
如下过程定义中，正确的是( )。
A. Private Sub p(a As Integer)
B. Private Sub p(a() As Integer)
C. Private Sub p(a(10) As Integer)
D. Private Sub p(a(n) As Integer)
(27)若要获得组合框中输入的数据，可使用的属性是( )。
A.Listindex
B.Caption
C.Text
D.List
(28)以下关于弹出式菜单的叙述中，错误的是( )。
A.一个窗体只能有一个弹出式菜单
B.弹出式菜单在菜单编辑器中建立
C.弹出式菜单的菜单名(主菜单项)的“可见”属性通常设置为False
D.弹出式菜单通过窗体的PopupMenu方法显示
(29)有如下程序：
Option Base !
Private Sub Command1_Click()
Dim arr(10)
arr=Array(10,35,28,90,54,68,72,90)
For Each a In arr
If a>50 Then
Sum=Sun+a
End If
Next a
End Sub
运行上述程序时出现错误，错误之处是( )。
A. 数组定义语句不对，应改为Dim arr
B. 没有指明For循环的终值
C. 应在For语句之前增加Sum=0
D. Next a应改为Next
(30)要求产生10个随机整数，存放在数组arr中，从键盘输入要删除的数组元素的下标，将该元素中的数组删除，后面元素中的数据依次前移，并显示删除后剩余的数据，现有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim arr(10) AS Integer
For i=1 to 10
arr(i)=int (Rnd*100)
Print arr(i);
Next
x=inputbox(“输入1到10的一个整数：”)
For i=x+1 to 10 ‘循环2
arr(i-1)=arr(i)
Next
For i=1 to 10 ‘循环3
Print arr(i);
Next
End Sub
程序运行后发现显示的结果不正确，应该进行的修改是( )。
A. 产生随机数时不使用Int函数
B. 循环2的初始值应为i=x
C. 数组定义改为Dim a(11) as integer
D. 循环3是循环终值应改为9
(31)使用驱动器列表框Drive1、目录列表框Fiel1时，需要设置控件的同步，以下能够正确设置两个同步的命令是( )。
A.Dir1.path=Drive.pate
B.File1.path=Dir1.pate
C.File1.path=Drive1.pate
D.Drive1.Drive=Dir1.pate
二、 填空题(每空2分，共30分)
请将每空的正确答案写在答题卡【1】~【15】序号的横线上，答在试卷上不得分。
(1) 在长度为n的顺序存储的线性表中删除一个元素，最坏情况下需要移动表中的元素个数为 ( )。
(2)设循环队列的存储空间为Q(1：30)，初始状态为Front=rear=30.现经过一系列入队与退队运算后，front=16，rear=15，则循环队列中有( )个元素。
(3)数据库管理系统提供的数据语言中，负责数据的增、删、改和查询的是( )。
(4)在将E-R图转换到关系模式时，实体和联系都可以表示成( )。
(5)常见的软件工程方法有结构化方法和面向对象方法，类、继承以及多态性等概念属于( )。
(6)下面的事件过程执行时，可以把Text1文本框中的内容写到文件“file1.txt“中去。请填空。
Pivate Sub Command1_Click()
Open “file1.txt”For ( 6 ) As#1
print ( 7 ) Text1.Text
Close #1
End Sub
(7)设窗体上有一个名称为Lable1的标签。程序运行时，单击鼠标左键，再移动鼠标，鼠标的位置坐标会实时地显示在Lable1标签中：单击鼠标右键则停止实时显示，并将标签中内容清除。下面的程序可实现这一功能，请填空。
Dim Down As Boolean
Private Sub Form _MouseDown(Button As Integer，Shift As Integer，x As Single，Y As Single)
Select Case ( 8 )
Case 1
Down=True
Case 2
Down=False
End Select
End Sub
Private Sub Form _MouseMove(Button As Integer，Shift As Integer，X As Single，Y As Single)
If ( 9 )
( 10 ) =”X=”& X &” Y=”& Y
Else
Label1.Caption=””
End if
Sub
(8)窗体上有List1、List2两个列表框，程序运行时，在两个列表框中分别选中1个项目，如图a所示，单击名称为Command1的“交换”按钮，则把选中的项目互换，互换后的位置不限，如图b所示。下面的程序可实现这一功能，请填空。
Private Sub Command1_Click()
If List1.Text=”” or List2.Text=”” Then
MsgBox”请选择交换的物品!”
Else
List1.AddItem List2.Text
List2.RemoveItem ( 11 )
( 12 )
List1.RemoveItem List1.ListIndex
End If
End Sub
(9)设窗体上有Text1文本框和Command命令按钮，并有以下程序：
Private Sub Command1_Click()
Iemp$=“”
For k=1 To Len(Text1)
Ch$=Mid(Text1,k,1)
If Not found(temp,ch)Then
Temp=temp& ( 13 )
End if
Next k
Text1= ( 14 )
End Sub
Private Function found(str As String,ch As String)As Boolean
For K=1 To Len(str)
If ch=Mid(Str,k,1) Then
Found= ( 15 )
Exit Function
End If
Next k
Found=False
End Function
运行时，在文本框中输入若干英文字母，然后单击命令按钮，则可以删去文本框中所有重复的字母。例如，若文本框中原有字符串为“abcddbbc”，则单击命令按钮后文本框中字符串为“abcd“。其中函数found的功能是判断字符串str中是否有字符ch，若有，函数返回True，否则返回False。请填空。
上半年计算机二级考试VB真题 2
一、选择题
1. 以下合法的VB变量名是（ ）
A. 3a
B. a#3
C. _a3
D. a - 3
答案：C。解析：变量名必须以字母开头，不能包含特殊字符（除了下划线），不能是VB中的关键字，数字不能开头。
2. 设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。
3. 以下关于数组的说法中，错误的是（ ）
A. 数组是一组具有相同类型的数据的集合
B. 数组的下标从0开始
C. 可以使用Dim语句声明数组
D. 数组的大小在运行时可以随意改变
答案：D。解析：数组在声明后大小通常是固定的，不能随意改变，除非使用动态数组重新分配内存。
4. 下面程序段运行后，变量x的值为（ ）
x = 0
For i = 1 To 5
x = x + i
Next i
A. 15
B. 10
C. 5
D. 20
答案：A。解析：这是一个简单的For循环，循环从1到5，每次循环x加上当前的i值，即1 + 2+3 + 4+5 = 15。
5. 在VB中，要使一个文本框具有垂直滚动条，则应（ ）
A. 将其MultiLine属性设置为True，ScrollBars属性设置为2
B. 将其MultiLine属性设置为False，ScrollBars属性设置为2
C. 将其MultiLine属性设置为True，ScrollBars属性设置为0
D. 将其MultiLine属性设置为False，ScrollBars属性设置为0
答案：A。解析：文本框的`MultiLine属性设置为True才能显示多行内容，ScrollBars属性设置为2 - Vertical（垂直滚动条）才能显示垂直滚动条。
6. 下列关于函数过程的叙述中，正确的是（ ）
A. 函数过程形参的类型与函数返回值的类型没有关系
B. 在函数过程中，过程的返回值可以有多个
C. 当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递
D. 如果不指明函数过程参数的类型，则该参数没有数据类型
答案：A。解析：函数过程的形参类型和返回值类型可以不同；函数过程只能返回一个值；在VB中，数组默认是以引用方式传递；如果不指明函数过程参数的类型，VB会根据赋值情况确定类型。
7. 以下关于菜单的说法中，错误的是（ ）
A. 每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件
B. 除了Click事件之外，菜单项不可以响应其他事件
C. 菜单项的快捷键不能任意设置
D. 在程序运行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择
答案：C。解析：菜单项的快捷键可以在菜单编辑器中进行设置，用户可以根据需要自定义。
8. 在VB中，为了在运行时把图形文件picfile.jpg装入图片框Picture1，所使用的语句为（ ）
A. Picture1.Picture = "picfile.jpg"
B. Picture1.Image = "picfile.jpg"
C. Picture1.Picture = LoadPicture("picfile.jpg")
D. Picture1.Image = LoadPicture("picfile.jpg")
答案：C。解析：在VB中，使用LoadPicture函数将图形文件加载到图片框的Picture属性中。
二、填空题
1. 表达式Abs(-3.6) * Sqr(100)的值是____。
答案：36。解析：Abs函数返回绝对值，Sqr函数返回平方根，Abs(-3.6)=3.6，Sqr(100) = 10，3.6*10 = 36。
2. 在VB中，若要在一个模块的多个过程中使用同一个变量，则应在____模块中声明该变量。
答案：标准。解析：在标准模块中声明的变量可以在多个过程中共享。
3. 以下程序段的功能是：从键盘输入若干个学生的成绩，统计并输出最高成绩和最低成绩，当输入负数时结束输入。请填空。
vb
Dim x As Single,amax As Single,amin As Single
x = InputBox("请输入成绩")
amax = x
amin = x
Do While____
If x > amax Then
amax = x
End If
If____Then
amin = x
End If
x = InputBox("请输入成绩")
Loop
Print "最高成绩："; amax, "最低成绩："; amin
答案：x >= 0；x < amin。解析：第一个空是循环条件，只要输入的成绩不是负数就继续循环；第二个空是判断当前输入的成绩是否小于最小值，如果是则更新最小值。
4. 在VB中，要使标签Label1的标题文字右对齐，应将其____属性设置为1 - Right Justify。
答案：Alignment。解析：标签的Alignment属性用于设置文本的对齐方式。
5. 以下函数的功能是计算1 + 1/2 + 1/3 +...+ 1/n的值，请填空。
vb
Function sum(n As Integer) As Single
Dim i As Integer
sum = 0
For i = 1 To n
sum = sum +____
Next i
End Function
答案：1 / i。解析：在循环中每次将1/i累加到sum变量中，从而实现计算数列的和。
【上半年计算机二级考试VB真题】相关文章：
2016计算机二级考试《VB》真题练习08-11
全国计算机二级VB考试真题07-31
9月计算机二级考试VB真题10-11
2006年上半年全国计算机等级考试二级VB笔试真题10-02
2012年9月计算机二级考试VB真题11-08
下半年全国计算机二级VB考试真题09-26
2017计算机二级考试VB巩固题08-30
计算机二级考试《VB》巩固训练题07-17