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

本文由脉雨斋贡献
doc文档可能在WAP端浏览体验不佳。建议您优先选择TXT，或下载源文件到本机查看。
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)
,
233
4. 在 Word 97 中,为了看清文档打印输出的效果,应使用 (4) 视图. 5. 设有某 Internet 用户, POP 主机域名是 https://www.wendangku.net/doc/896558443.html,, 其 帐户名为 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 表达式是
.
x 5 cos 29 ° e x + ln y + 5
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 的含义是
234
试题三,程序阅读题 试题三,程序阅读题(本题共 21 分) 阅读下列程序,写出运行结果. 1. 程序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. 程序2(5 分) Private Sub Form_C

lick() 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. 程序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. 程序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
235
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 的级数表示如下:
e = 1+
1 1 1 1 + + + + + 1! 2! 3! n!
236
本程序利用函数过程 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 事件中.
2000年秋浙江省高校计算机等级考试参考答案 2000年秋浙江省高校计算机等级考试参考答案 二级Visual (二级Visual BASIC)
试题一,计算机基础题(本题共 15 分) 试题一,计算机基础题 (一)单选题(每题 1 分,共 10 分) (1) A (6) B (2) D (7) A (3) (8) C D (4) D (9) A (5) C (10) B
(二)填空题(每题 1 分,共 5 分) (1) (3) (5) 控制器和运算器 控制面板 sdhong@https://www.wendangku.net/doc/896558443.html, (2) (4) 9D.6 页面
试题二,语言基础题(本题共 28 分) 试题二,语言基础题 (一)判断题(每题 1 分,共 10 分) 2. × 3. √ 1. √ 6. √ 7. × 8. × (二)选择题(每题 1 分,共 6 分)
4. × 9. √
5. 10.
× √
237
(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.(5分) w= w= w= w= 3. (5 分) L H F D B 4.(6 分) y= 5 y= 15 y= 30 a= 5 a= 10 a= 15
3 4 5 6
k= k= k= k=
2 4 6 8
试题四,程序填空题(每空 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 (9) Abs(item) >=0.00000001 (8) 1 / fact(n) 试题五,程序设计题(本题共 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)
238
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
239

1