00年秋浙江省高校计算机VB二级等级考试真题试卷(含答案).docx

2000年秋浙江省高校计算机等级考试试卷 (二级Visual BASIC)

说明：考生应将全部答案写在答卷上，否则作无效处理。考试时间为120分钟。

试题一、计算机基础题（本题共15分）
（一） 单选题（每题1分，共10分）
1. 软盘加上写保护后，对它可以进行的操作是 （1） 。
A．只能读盘，不能写盘 B．只能写盘，不能读盘
C．既可读盘，又可写盘 D．不能读盘，也不能写盘
2. 在语言处理程序中，编译程序的功能是 （2） 。
A．解释执行高级语言程序 B．将汇编语言程序编译成目标程序
C．解释执行汇编语言程序 D．将高级语言程序翻译成目标程序
3. 下列有关计算机病毒的说法中， （3） 是错误的。
A．游戏软件常常是计算机病毒的载体
B．尽量做到专机专用或安装正版软件，是预防计算机病毒的有效措施
C．用消毒软件将一片软盘消毒之后，该软盘就没有病毒了
D．计算机病毒在某些条件下被激活之后，才开始起干扰和破坏作用
4. 在Windows95中，桌面是指 （4） 。
A．电脑桌 B．活动窗口
C．文档窗口 D. 窗口、图标和对话框所在的屏幕背景
5. 在Windows95资源管理器窗口的左窗格中，文件夹图标含有“+”时，表示该文件夹 （5） 。
A．只含有文件 B．是空文件夹
C．含有子文件夹 D. 只含有文件而不含有文件夹
6. 以下是用十六进制表示的两个连续的存储单元的内容，其中 （6） 一定不是汉字编码。
A．A0A0H B．1234H C．BBBBH D．ABCDH
7. 下列有关Word 97格式刷的叙述中， （7） 是正确的。
A．格式刷既可以复制字体格式也可以复制段落格式
B．格式刷只能复制字体格式
C．格式刷只能复制段落格式
D．格式刷只能复制纯文本的内容
8. 在Word 97表格中，单元格内能填写的信息 （8） 。
A．只能是文字 B．只能是文字或符号
C．只能是图像 D．文字、符号、图像均可
9. 调制解调器的功能是实现 （9） 。
A．数字信号与模拟信号的转换 B．数字信号的整形
C．模拟信号的放大 D．数字信号的编码
10. 计算机网络最突出的优点是 （10） 。
A．存储容量大 B．资源共享 C．运算速度快 D．运算精度高

（二） 填空题（每题1分，共5分）
1. CPU是计算机的核心部件，该部件主要由 (1) 组成。
2. 十进制数157.375转换成对应的十六进制数是 (2) 。
3. 在Windows 95中，要安装或删除Windows附件中的部分组件，通常是运行 (3) ，然后使用其中的“添加/删除程序”功能。
4. 在Word 97中，为了看清文档打印输出的效果，应使用 （4） 视图。
5. 设有某Internet用户，其POP主机域名是，帐户名为sdhong,则相应的E-mail地址是 （5） 。

试题二、语言基础题（本题共28分）
（一） 判断题（每题1分，共10分）
判断下列叙述正确与否，正确的打“√”，否则打“×”。
1．Visual Basic程序的运行可以从Main()过程启动，也可以从某个窗体启动。
2．同一Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。
3．静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。
4．事件过程由某个用户事件或系统事件触发执行，它不能被其它过程调用。
5．在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。
6．滚动条控件可作为用户输入数据的一种方法。
7．单选钮控件和复选框控件都具有Value属性，它们的作用完全相同。
8．用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发KeyPress事件。
9．组合框兼有文本框和列表框两者的功能，用户可以通过键入文本或选择列表中的项目来进行选择。
10．在盘驱动器列表框Drive1的Change事件过程中，代码Dir1.Path = Drive1.Drive的作用是：当Drive1的驱动器改变时，Dir1的目录列表随不同驱动器作相应改变。

（二） 单选题（每题1分，共6分）
1. 要改变控件的宽度，应修改该控件的 （1） 属性。
A． Top B． Left C． Width D． Height

A． Visible B． Value C． Caption D． Enabled
3. 单击滚动条两端的任一个滚动箭头，将触发该滚动条的 （3） 事件。
A． Scroll B． KeyDown C． Change D． Dragover
4. （4） 对象具有Clear方法。
A. 图片框 B. 窗体 C. 复选框 D. 列表框
5．重新定义图片框控件的坐标系统，可采用该图片框的 （5） 方法。
A. Scale B. ScaleX C. ScaleY D. SetFocus

A. ShowOpen B. ShowSave C. ShowColor D. ShowFont

（三） 填空题（每题2分，共12分）
1．下列代数式的Visual Basic表达式是 。
2．设x为大于零的实数，则大于x的最小奇数的Visual Basic表达式是 。
3．a1和a2之中有且只有一个与a3的值相等，相应的Visual Basic逻辑表达式是 。
4．设init的初值为10，则由下列循环语句控制的循环次数是 。
Do While init>=5
init=init-1
loop
5．在Visual Basic中，变量从它的作用范围来看，可分为 、 和 三种。
6．语句Picture1.Circle (800,1000),500的含义是 。

试题三、程序阅读题（本题共21分)
阅读下列程序，写出运行结果。
1. 程序１(5分)

Dim x As Integer, s As Integer
x = Val(InputBox("请输入一个正整数="))
If x < 5 Then
s = s * x
Else
s = s + x
End If
Text1.Text = "s=" + Str(s)
End Sub

2. 程序２(5分)
Private Sub Form_Click()
Form1.Cls
w = 3
For k = 2 To 6 Step 2
Form1.Print "w="; w, "k="; k
w = w + 1
Next k
Form1.Print "w="; w, "k="; k
End Sub
写出程序运行时单击窗体后，Form1上的输出结果。
3. 程序３(5分)
Private Sub Form_Click()
Dim x As String
Dim i As Integer, n As Integer
Form1.Cls
x = "ABCDEFGHKL"
n = Len(x)
For i = n To 1 Step -2
Form1.Print Tab(20 - i); Mid(x, i, 1)
Next i
End Sub
写出程序运行时单击窗体后，Form1上的输出结果。

4. 程序４(6分)
Rem 在窗体的通用声明区声明两个模块级变量a和y
Dim a As Integer, y As Integer
Private Sub Form_Load()
Open "c:\a1.dat" For Output As #1
Close #1
End Sub

Open "c:\a1.dat" For Append As #1
Call aa(5)
y = y + a
Print #1, "y="; y, "a="; a
Close #1
End Sub
Sub aa(i As Integer)
x = 1
Do Until x > i
a = a + x
x = x + 3
Loop
End Sub

试题四、程序填空题(每空2分，共18分)

图1
程序代码如下：
Dim x As Long
Dim h As Integer, m As Integer, s As Integer
Private Sub Form_Load()
Form1.Caption = "动态秒表（小时：分：秒）"

Label1.Alignment = 2 '居中对齐
Label1.Caption = " 0: 0: 0"
Timer1.Interval = ⑴
Timer1.Enabled = False
x = 0
End Sub

⑵
End Sub

Timer1.Enabled = False
x = ⑶
Label1.Caption = "运行了"+Str(h)+"小时"+Str(m)+"分"+Str(s)+"秒"
End Sub
Private Sub Timer1_Timer()
x = x + 1
h = ⑷
m = (x Mod 3600) \ 60
s = ⑸
Label1.Caption = Str(h) + ":" + Str(m) + ":" + Str(s)
End Sub

2. 程序说明：已知自然对数的底数e的级数表示如下：
本程序利用函数过程fact()求e,其中绝对值小于1E-8的项被忽略。程序代码如下：
Private Function fact(m As Integer) As Single '求m!的函数
Dim x As Single, i As Integer
x = 1
For i = 1 To m
x = ⑹
Next i
fact = x
End Function
Private Sub Form_Click()
Dim e As Single, item As Single
Dim n As Integer
e = 1: n = ⑺
Do
n = n + 1
item = ⑻
e = e + item
Loop While ⑼
Form1.Print "e="; e
End Sub

试题五、程序设计题(本题共18分)

2. 由输入对话框输入100个数值数据放入数组a。将其中的整数放入数组b，然后运用选择分类法将数组b中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。（10分）
注：程序写在窗体Form的Click事件中。

2000年秋浙江省高校计算机等级考试参考答案
(二级Visual BASIC)

试题一、计算机基础题（本题共15分）
（一）单选题（每题1分，共10分）

(1)
A

(2)
D

(3)
C

(4)
D

(5)
C

(6)
B

(7)
A

(8)
D

(9)
A

(10)
B

（二）填空题（每题1分，共5分）
(1)
控制器和运算器
(2)

9D.6
(3)
控制面板
(4)

页面
(5)
sdhong@

试题二、语言基础题（本题共28分）
（一）判断题（每题1分，共10分）
1． √ 2． × 3． √ 4． × 5． ×
6． √ 7． × 8． × 9． √ 10． √

（二）选择题（每题1分，共6分）
(1） C (2） A （3） C （4） D （5） A (6） B

（三）填空题（每题2分，共12分）
1. （x^5-Cos(29*3.14/180)）/(Sqr(Exp(x)+log(y))+5)
2. ((Int(x)+1)\2)*2+1 (或 ((Fix(x)+1)\2)*2+1)
3. a1=a3 Xor a2=a3 (或 a1=a3 And a2<>a3 Or a1<>a3 And a2=a3)
4. 6 5. 全局变量 、 模块级变量 和 局部变量
6. 以图片框Picture1中的(800,1000)为圆心，以500为半径画一个圆

试题三、程序阅读题（本题共21分)
1. （5分）
s= 5
s= 10
s= 40

2.（５分）
w= 3 k= 2
w= 4 k= 4
w= 5 k= 6
w= 6 k= 8

3. (5分)
L
H
F
D
B

４．(6分)
y= 5 a= 5
y= 15 a= 10
y= 30 a= 15

试题四、程序填空题(每空2分，共18分)
1. (1) 1000
(2) Timer1.Enabled = True 或 Timer1 = True
(3) 0 (4) x \ 3600
(5) x Mod 60
2. (6) x * i (7) 0
(8) 1 / fact(n) (9) Abs(item) >=0.00000001

试题五、程序设计题(本题共18分)
1.程序如下:（8分）

Dim n As Integer, Osum As Long, x As Integer
n = Val(InputBox("请输入数据n"))
Hsum = 0
For i = 1 To n
x = Int(Rnd * 90 + 10)
If x Mod 2 = 0 Then Osum = Osum + x
Next i
Label1.Caption = "偶数之和=" + Str(Osum)
End Sub

2.程序如下:（10分）
Private Sub Form_Click()
Const n = 100
Dim a(1 To n) As Single
Dim b(1 To n) As Long, t As Long
Dim m As Integer, i As Integer, j As Integer
m = 0
For i = 1 To n
a(i) = Val(InputBox("请输入第" + Str(i) + "个数据"))
If Int(a(i)) = a(i) Then
m = m + 1
b(m) = a(i)
End If
Next i
For i = 1 To m - 1
For j = i + 1 To m
If b(i) < b(j) Then t = b(i): b(i) = b(j): b(j) = t
Next j
Next i
For i = 1 To m
If i Mod 5 <> 0 Then
Print b(i),
Else
Print b(i)
End If
Next i
End Sub