2023年秋浙江省高校计算机等级考试试卷二级VisualBASIC.doc

2023年秋浙江省高校计算机等级考试试卷 (二级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
2. 将命令按钮Command1设立为不可见，应修改该命令按钮的 （2） 属性。
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
6. 将通用对话框CommonDialog1的类型设立成另存为对话框，可调用该控件的 （6） 方法。
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分)
Private Static Sub Command1_Click()
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
程序运营时连续三次单击Command1，且设输入的数是5、2和4时，分别写出文本框Text1.Text的值。

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
Private Sub Command1_Click()
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
写出程序运营时连续三次单击Command1后，a1.dat文献的最终结果。

试题四、程序填空题(每空2分，共18分)
1. 程序说明： 运用一个计时器、一个标签框和二个命令按钮制作一个动态秒表，如图1所示。单击“开始”命令按钮，秒表开始计时，单击“结束”命令按钮，秒表结束计时，并在标签框显示运营时间，如“运营了0小时2分10秒”。（假设对象的属性都在程序代码中设定）

图1
程序代码如下：
Dim x As Long
Dim h As Integer, m As Integer, s As Integer
Private Sub Form_Load()
Form1.Caption = "动态秒表（小时：分：秒）"
Command1.Caption = "开始[&S]"
Command2.Caption = "结束[&E]"
Label1.Alignment = 2 '居中对齐
Label1.Caption = " 0: 0: 0"
Timer1.Interval = ⑴
Timer1.Enabled = False
x = 0
End Sub
Private Sub Command1_Click()
⑵
End Sub
Private Sub Command2_Click()
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分)
1．随机产生n个两位正整数（n由输入对话框输入，且n>0），求出其中的偶数之和，并在标签框Label1上显示。(8分）
注：程序写在命令按钮Command1的Click事件中。

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

2023年秋浙江省高校计算机等级考试参考答案
(二级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)

试题二、语言基础题（本题共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分）
Private Sub Command1_Click()
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