[考试中心]安徽省计算机二级VB笔试权威模拟试题及答案2.doc

全国高等学校（考区）
计 算 机 水 平 考 试 试 卷
（二级 Visual Basic 语言）
一、单项选择题（每题1分，共40分）
1．计算机硬件系统中最核心的部件是1。
A）存储器 B）输入/输出设备 C）CPUD）硬盘
2．计算机最早的应 用领域是 2 。
A）科学计算 B）图形处理 C）过程控制 D）人工智能
3．下列属于文字处理软件的是 3 。
A）Windows B）Word C）PowerPoint D）Excel
4．在计算机系统部，所有数据都是采用 4 表示。
A）十六进制 B）十进制 C）八进制 D）二进制
5．在Windows系统中，下面文件命名合法的是 5 。
A）A*.DOCB）AB.DOCC）A?.DOCD）A>.DOC
6．计算机可以播放DVD等音像制品, 主要运用的是 6 技术。
A）多媒体B）人工智能 C）数据库 D）数据挖掘
7．将文件从FTP服务器传输到本地计算机的过程称为 7 。
A）上传 B）浏览 C）查找D）下载
8．下列IP地址中，错误的是 8 。
A）219.231.10.155 B）192.168.5.1
C）219.260.20.12 D）192.10.6.7
9．下列关于计算机病毒的叙述中，正确的是 9 。
A）加密文件不会感染计算机病毒
B）系统软件不会感染计算机病毒
C）有防火墙的计算机系统也会感染病毒
D）压缩的文件不会感染计算机病毒
10．计算机能直接运行的是 10 。
A）目标程序 B）机器语言程序C）汇编语言程序 D）高级语言程序
11．下列选项中是Visual Basic的合法变量名的是 C 。
A）1_abc B）abc-1 C）abc_1 D）abc.1
12．对正整数X、Y，有下列表达式，不能判断X能被Y整除的是 C 。
A）X/Y=Int(X/Y) B）X Mod Y =0
C）X\Y=Fix(X/Y) D）X\Y=X/Y
13．下面可以正确定义2个整形变量和一个字符型变量的语句是 B 。
A）Dim x, y As Integer, n As String B) Dim x%, y As Integer, n As String
C) Dim x%, y$, n As String D) Dim x As Integer, y, n As String
14．下面表达式中， A的运算结果与其他三个不同。
A）Exp(-3.5) B）Int(-3.5)+0.5 C）-Abs(-3.5) D）Sgn(-3.5)-2.5
15．将任意一个正的两位整数N的个位数与十位数对换的表达式为 A。
A）（N-Int(N/10)*10）*10+Int(N/10) B）N-Int(N)/10*10+Int(N)/10
C）Int(N/10)+(N-Int(N/10)) D）(N-Int(N/10))*10+Int(N/10)
16．执行语句s=Mid("VisualBasic",1,6)后，s的值是 A 。
A) Visual B) Basic C) 6 D) 11
17．表达式5 Mod 3+3\5*2的值是 B 。
A）0 B）2 C）4 D）6
18．选拔性别S是女，身高T超过1.6米且体重W小于62.5公斤的人，表示该条件的表达式为 C 。
A) S="女" And T>=1.6 And W<=62.5 B) S="女" Or T>1.7 Or W<62.5
C) S="女" And T>1.6 And W<62.5 D) S="女" Or T<=1.7 Or W>=62.5
19．可以强行中断程序运行的操作是 D
A) 按Ctrl+C键 B) 按Ctrl+Z键
C) 按Ctrl+V键 D) 按Ctrl+Break键
20．在默认条件下有数组声明语句：Dim A(2,-2 to 2, 3)，则数组A包含 D 个元素。
A) 200 B) 120 C) 75 D) 60
21．已设置数组元素下标从1开始，下列程序段运行时会提示出错，出错的原因是 C 。
a = Array(1, 2, 3, 4)
For i = 4 To 1 Step -1
Print a(i)
Next i
Print a(i)
A）第三行，数组元素a(i)下标越界 B）第一行，数组没定义，不能直接赋值
C）第五行，数组元素a(i)下标越界 D）第二行，循环语句格式不对
22．下列语句不合法的是 D。
A）x = 1: y = 2 B）Print x; y; C）Print x, y, D）x=1;y=2
23．当0<x<10时，将x赋值给y，应使用语句 C 。
A) If 0<x<10 Then y=x B) If 0<x Or x<10 Then y=x
C) If 0<x And x<10 then y=x D) If 0<x Xor x<10 Then y=x
24．以下叙述中正确的是 A 。
A) 窗体的Name属性指定窗体的名称，用来标识一个窗体
B) 窗体的Name属性值是显示在窗体标题栏中的文本
C) 可以在运行期间改变对象的Name属性值
D) 对象的Name属性值可以为空
25．当启动程序时，系统自动执行启动窗体的 A 事件过程。
A) Load B) Unload C) Click D) DblClick
26．将数据项"China"添加到列表框List1中成为第3项，应使用 B 语句。
A）List1.AddItem "China"，3 B）List1.AddItem "China"，2
C）List1.AddItem 3，"China" D）List1.AddItem 2，"China"
27．若要使标签框的大小自动与所显示的文本相适应，则可通过设置其 A 属性值为True来实现。
A）AutoSize B）Alignment C）Appearance D）Visible
28．复选框或单选按钮的当前状态通过 A 属性来设置或访问。
A) ValueB) Checked C) Selected D) Caption
29．要将列表框List1中当前选中的一项删除，应执行的语句是 D 。
A) List1.Clear
B) list1.Clear List1.ListIndex
C) List1.Delete List1.ListIndex
D) List1.RemoveItem List1.ListIndex
30．下列控件可以用作其他控件容器的有 D 。
A) 窗体，标签，图片框 B) 窗体，框架，文本框
C) 窗体，图像，列表框 D) 窗体，框架，图片框
31．因修改文本框的容而触发的事件是 A 。
A) Change B) GotFocus C) LostFocus D) SetFocus
32．如果每秒触发10次计时器的Timer事件，那么计时器的Interval属性应设为 C 。
A) 1 B) 10 C) 100 D) 1000
33．下列对象中不能获得焦点的是 B 。
A）命令按钮控件 B）标签控件 C）文本框控件 D）单选按钮控件
34．设x=4，y=8，z=7，表达式x<y And (Not y>z) Or z<x的值是 D。
A）1 B）-1 C）True D）False
35．在设计阶段，双击窗体Form1的空白处，则在代码窗口打开 B事件过程代码。
A）Form_Click B）Form_Load C）Form_ DblClick D）Form_ Unload
36．如下有一段不完整的程序段，若要求该程序执行3次循环，则在程序中的空白处填入
A 。
X=1
Do
x=x+3: Print x
Loop Until
A）x>=8 B）x<=8 C）x>=7 D）x<=7
37．执行语句Open "D:\RandFile.dat" For Output As #1后，对文件“D:\RandFile.dat”能够进行的操作是B。
A）只能读不能写 B）只能写不能读
C）既可以写，也可以读 D）既不能读，也不能写
38．要在运行时暂时关闭计时器，可通过赋值语句使计时器的C属性值为False。
A）Index B）Tag C）Enable D）Interval
39．Visual Basic 中数据库的访问技术不包括D。
A）ADO B）DAO C）RDO D）DBMS
40．下列关于菜单的论述中，错误的是D
A）菜单项是控件，也具有属性
B）菜单项只有Click事件
C）不能在顶层菜单加快捷键
D）在程序运行过程中，不能通过赋值语句设置菜单项的属性

二、填空题（每空2分，共20分）
1. 数学表达式的Visual Basic表达式是： (1) 。
2. 关系式-7.5≤x≤7.5所对应的逻辑表达式是： (2) 。
3. 以下程序用于判断输入的年份是否闰年，如果年份能被4整除但不能被100整除,或者年份能被400整除，则该年是闰年，否则不是闰年，请填空完善程序。
Private Sub Command1_Click()
y = Val(InputBox("请输入一个年份"))
If (3) Or y Mod 400 = 0 Then
Print Str(y) & "年是闰年！"
Else
Print Str(y) & "年不是闰年！"
End If
End Sub
4. 利用随机函数产生20个[10,90]之间的随机整数，每行输出4个整数。填空完成以下程序。
Private Sub Form_Click()
Dim sum As Integer, x As Integer
Randomize
For i = 1 To 20
x = (4) '用随机函数产生[10~90]之间的整数
Print x;
If (5) Then Print'满足换行条件时换行
Next i
End Sub
5. 下列程序的功能是在数组中找出数值最大的元素，请填空完善程序。
Private Sub Command1_Click()
Dim arr1 as Variant, Max As Integer
arr1 = Array(12, 34, 10, 78, 4, 89, 45)
Max = arr1(0)
For i = 1 To (6)
If arr1(i) > Max Then
Max = (7)
End if
Next i
Print "最大值是："; Max
End Sub
6. 下列程序的功能是计算（N是偶数），试填空完成以下程序。
Private Sub Command2_Click()
Dim S As Double
Dim I As Integer, N As Integer
Dim C As Integer
S = 0: I = 1: C = 1
N = Val(InputBox("请输入大于零的偶数N："))
Do
S = S + C * I * I
C = (8)'正负号切换
I =(9)'循环变量增加
Loop While (10)'循环结束条件
End Sub

三、阅读理解题（每小题4分，共20分）
1．执行下列程序后，输出的结果是： (1)
Private Sub Form_Click()
Dim x As Integer
x = 10
Select Case x
Case Is >= 10
Print x & x
Case 7, 8, 9
Print x + x
Case 0 To 6
Print x
End Select
End Sub

2．执行下列程序后，输出的结果是： (2)
Private Sub Form_Click()
Dim i As Integer
Dim t As String
st = ""
For i = 1 To 12 '字符串逐字符处理
If i Mod 3 = 0 Then
st = Mid("Visual Basic", i, 1) + st
End If
Next i
Print st
End Sub

3．执行下列程序后，输出的结果是： (3)
Private Sub Form_Click()
Dim s As Integer, n As Integer
s = 0
n = 1
Do
s = s + n * n
If s > 50 Then
Exit Do'强制跳出循环
End If
n = n + 1'循环变量自增
Loop Until n > 6
Print s
End Sub

4．执行下列程序后，输出的结果是： (4)
Option Base 1
Private Sub Form_Click()
Dim a(4, 4) As Integer
Dim i As Integer, j As Integer
Dim count As Integer, s As Integer
count = 1
For i = 1 To 4'给二维数组赋值并累加特殊位置的元素值
For j = 1 To 4
a(i, j) = count
count = count + 1
If i = 1 Or i = 4 Or j = 1 Or j = 4 Then
s = s + a(i, j)
End If
Next j
Next i
Print s
End Sub

5．执行下列程序后，E盘下tdata.txt文件中的容是： (5)
Private Sub Form_Click()
For i = 1 To 5
s = s + fun(i)
Next i
Open "e:\tdata.txt" For Output As #1'打开顺序文件
Print #1, s
Close #1
End Sub

Private Function fun(ByVal i As Integer) As Integer
Static a
a = a + 1
fun = a * i
End Function

四、编程题（共20分）

1．编写一个Function函数fun，求解如下分段函数的值（x为实型变量的函数形参）（6分）
Y=
-x x<0
x2 0≤x≤10
100 x>10

2．编写程序，利用随机函数产生10个[10，100]之间的整数，并存入数组中，求出该数组中最大数与最小数之差并在窗体上输出结果。（7分）

3．假定在E盘下有一文件data.dat，其容为三个点的坐标，容样式如下
4,8
2,6
3,8

每一行的前1个数据表示点的横坐标x，后一个数据表示点的纵坐标y。编写程序读取文件中的数据，并判断该三点能否构成三角形。（7分）
提示：利用任意两边之和大于第三边来判定三角形。
边长L=，其中（x1,y1）与（x2,y2）为两点坐标。
《Visual BASIC程序设计（语种代号：211）》（B）卷
参考答案与评分标准
一、单项选择题（每题1分，共40分）
1 - 5
CABDB
6-10
ADCCB
11-15
CCBAA
16-20
ABCDD
21-25
CDCAA
26-30
BAADD
31-35
ACBDB
36-40
ABCDD
二、填空题（每空2分，共20分）
1
(x+y)^3*(t+u)^2/t/(x-y)
6
6
2
x<=7.5 and x>=-7.5
7
arr1(i)
3
y mod 4=0 and y mod 100<>0
8
-1*C
4
Int(81*rnd)+10
9
I+1
5
i mod 4=0
10
I<=N
说明：不区分大小写，其他答案只要正确参照给分。
三、阅读理解题（每小题4分，共20分）
序号
参考答案
评分标准
1
1010

2
cals

3
55

4
102

5
30

注：其他情况酌情给分

四、编程题（共20分）
序号
参考程序
评分标准
1
参考程序1：
Private Function FUN(ByVal x As Single) As Single
Dim y As Single
If x < 0 Then
y = -x
ElseIf x <= 10 Then
y = x * x
Else
y = 100
End If
FUN = y
End Function

程序正确得6分，其中：
Function函数格式正确得2分
IF语句正确（使用IF嵌套与Select语句正确）得2分
函数值返回正确得2分
2
参考程序1：
Dim a(9) As Integer
Dim i As Integer, max As Integer, min As Integer
For i = 0 To 9
a(i) = Int(Rnd * 91)+10
Next i
max = -1：min = 999
For i = 0 To 9
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
Next i
Print "最大与最小数之差为"; max - min
参考程序2：（排序计算）
Dim a(9) As Integer
Dim i As Integer, max As Integer, min As Integer
For i = 0 To 9
a(i) = Int(Rnd * 91)+10
Next i
For i = 0 To 8
For j = i + 1 To 9
If a(i) < a(j) Then
tem = a(i)：a(i) = a(j)： a(j) = tem
End If
Next j
Next i
Print "最大与最小数之差为"; a(0) - a(9)

程序正确得7分，其中：
数组定义正确得1分
随机数产生正确得2分
最大数与最小数查找判断正确得2分
有输出语句并结果正确得2分

数组定义正确1分
随机数产生正确2分
排序正确2分
结果正确2分

3
参考程序1：
Dim s(2, 1) As Integer
Dim l1 As Single, l2 As Single, l3 As Single
Open "e:\a.txt" For Input As #1
For i = 0 To 2
Input #1, s(i, 0), s(i, 1)
Next i
Close #1
l1 = Sqr((s(0, 0) - s(1, 0)) ^ 2 + (s(0, 1) - s(1, 1)) ^ 2)
l2 = Sqr((s(0, 0) - s(2, 0)) ^ 2 + (s(0, 1) - s(2, 1)) ^ 2)
l3 = Sqr((s(1, 0) - s(2, 0)) ^ 2 + (s(1, 1) - s(2, 1)) ^ 2)
If l1 + l2 > l3 And l2 + l3 > l1 And l1 + l3 > l2 Then
MsgBox ("文件中三点能构成三角形")
Else
MsgBox ("文件中三点不能构成三角形")
End If

程序正确得7分，其中：
正确使用文件打开语句得2分
文件数据正确读取得2分
求边长表达式正确得1分
三角形判定表达式正确得1分
输出语句正确使用得1分
注：其他解法可参照给分