发布时间 : 星期五 文章VB实验教材模拟练习（有答案）更新完毕开始阅读
D．主板上CMOS芯片用于存储CMOS设置程序和一些软硬件设置信息 2． 下列文件类型中，不属于丰富格式文本的文件类型是 _B _。 A． DOC文件 B． TXT文件 C． PDF文件 D． HTML文件
3．十进制数101对应的二进制数、八进制数和十六进制数分别是 _A _ 。 A．1100101B、145Q和65H B．1100111B、143Q和63H。 C．1011101B、145Q和67H D．1100101B、143Q和61H
4．从算法需要占用的计算机资源角度分析其优劣时，应考虑的两个主要方面是（A）。 A． 空间代价和时间代价 B． 正确性和简明性 C． 可读性和开放性
D． 数据复杂性和程序复杂性
5．路由器的主要功能是 B 。
A．在传输层对数据帧进行存储转发 B．将异构的网络进行互连
C．放大传输信号 D．用于传输层及以上各层的协议转换 6．人们往往会用“我用的是10M宽带上网”来说明自己使用计算机连网的性能，这里的“10M”指的是数据通信中的 A 指标。 A．信道带宽 B．数据传输速率 C．误码率 D．端到端延迟
7．目前PC机的外存储器(简称“外存”)主要有软盘、硬盘、光盘和各种移动存储器。下列有关PC机外存的叙述错误的是 C 。
A．软盘因其容量小、存取速度慢、易损坏等原因，目前使用率越来越低
B．目前CD光盘的容量一般为数百兆字节，而DVD光盘的容量为数千兆字节
C．硬盘是一种容量大、存取速度快的外存，目前主流硬盘的转速均为每分钟几百转 D．闪存盘也称为“优盘”，目前其容量从几十兆字节到几千兆字节不等 8．下列有关计算机软件的叙述中，错误的是 C 。 A．软件一般是指程序及其相关的数据和文档资科
B．从软件的用途考虑，软件可以分为系统软件和应用软件，主要的系统软件有操作系统、程序设计语言处理系统和数据库管理系统等
C．从软件的权益来考虑，软件可以分为商品软件、共享软件和自由软件。共享钦件和自由软件均为无版权的免费软件
D．linux是一种系统软件，自由软件
9．下列关于打印机的叙述中，错误的是_ A 。 A． 激光打印机使用PS/2接口和计算机相连 B． 喷墨打印机的打印头是整个打印机的关键
C． 喷墨打印机属于非击打式打印机，它能输出彩色图像
D． 针式打印机独特的平推式进纸技术，在打印存折和票据方面具有不可替代的优势 10． 下面关于PC机I/O总线的说法中不正确的是 C _。 A．总线上有三类信号：数据信号、地址信号和控制信号 B．I/O总线的数据传输速率较高，可以由多个设备共享 C．I/O总线用于连接PC机中的主存储器和Cache存储器 D．目前在PC机中广泛采用的I／O总线是PCI总线
第二部分 Visual Basic程序设计
一、选择题（共10分，每题2分）
1．InputBox函数返回值的数据类型是 _B 。
A．整形 B．字符串型 C．双精度型 D．变体型
ex(10?3a?32b?c)对应的VB表达式是 _C 。 2．数学式
cosxA．|10+3a|*(2*b+c)^(1/3)*Exp(x) / Cos(x)
B．Abs(10+3*a)*((2*b+c)^1/3)* (Exp(x) /Cos(x)) C．Exp(x)*Abs(10+3*a)*(2*b+c)^(1/ 3) /Cos(x) D．Exp(x) / Cos(x)* Abs(10+3*a)*((2*b+c)^1/3)
3．以下关于变量作用域的叙述中，正确的是 _C 。
A．窗体中凡用Private声明的变量只能在某个指定的过程中使用 B．模块级变量只能用Dim语句声明
C．凡是在窗体模块或标准模块的通用声明段用Public语句声明的变量都是全局变量 D．当不同作用域的同名变量发生冲突时，优先访问局限性小的变量 4．下面给有关数组的叙述中，正确的是 D 。
A. 在过程中使用ReDim语句重定义的动态数组，必须已经在前面用Dim语句对其进行过
说明
B. 在过程中，不可以使用Static来定义数组
C. 用ReDim语句重新定义一维动态数组时，可以改变数组的大小，但不能改变数组的维
数
D. 不可以用Public语句在窗体模块的通用声明处说明一个全局数组 5．对正实数X 的第四位小数四舍五入的VB表达式是 D 。 A．0.001*Int(x+0.005) B．0.001*(1000*x+0.5) C．0.001*Int(1000*x+5) D．0.001*Int(1000*(x+0.0005)) 二、填空题（共20分，每空2分）
1．执行下面程序，单击命令Command1，则窗体上显示的第一行是 _2 _，第二行是 1 ，最后一行是 214 。 Option Explicit
Private Sub Command1_Click()
Dim n As Integer, k As Integer n = 59 k = 5
Print Tran(n, k ) End Sub
Private Function Tran(n As Integer, k As Integer) As String
Dim r As Integer If n <> 0 Then r = n Mod k
Tran = Tran(n \\ k, k ) & r Print r End If End Function
2．执行下面程序，如果连续三次单击Command1，A数组共有 6 个元素；数组元素A（5）的值是 31 。 Option Explicit Option Base 1
Private Sub Command1_Click()
Static a() As Integer, n As Integer Dim i As Integer, k As Integer k = n n = n + 2
ReDim Preserve a(n) For i = k + 1 To n a(i) = i * n + 1 Next i
For i = 1 To n Print a(i); Next i Print End Sub
3．执行下面程序，第一行输出结果是 31 ，第二行输出结果是 63 。
Private Sub Form_Click() Dim A as Integer A=3
Call sub1(A) End Sub
Private Sub sub1(X as Integer)
X=X*2+1 If X<10 then
Call sub1(X) End if X=X*2+1 Print X End Sub
4．有如下程序，当单击命令按钮Command1时，窗体上显示的第一行的内容是 2 2 4，第二行的内容是 2 5 1 ，第四行的内容是 2 9 1 。
Private Sub Command1_Click()
Dim a as Integer, b as Integer, z as Integer a=2:b=5:z=1 Call sub1(a,b) Print a, b, z Call sub1(b,a) Print a,b,z End Sub
Private Sub sub1(x as Integer, ByVal y as Integer)
Static z As Integer
x=x+z y=x-z z=x+y Print x, y, z End Sub
三、操作题（共50分） １．完善程序。（共12分）
【要求】
打开“C:\\学生文件夹”中“P1.vbp”文件，按参考界面形式编辑窗体界面，完善程序后，直接保存所有文件。
【题目】本程序的功能是，随机生成n个两位整数（n利用键盘输入），存入一个数组。再找出数组中的最大元素并将其删除。删除的方法是将最大元素后面的元素依次前移一个位置，数组长度减1。重复上述过程，直到得到只有一个元素的数组为止。 Option Explicit
Private Sub Command1_Click()
Dim a() As Integer, n As Integer, mv As Integer, mp As Integer Dim i As Integer, j As Integer, st As String n = InputBox(\元素个数\数组处理\ Randomize ReDim a(n) For i = 1 To n
a(i) = Int(Rnd * 90) + 10 Text1 = Text1 & Str(a(i)) Next i
For i = 1 To n – 1
Call maxv(a, mv, mp)
For j = mp To a(j) = a(j + 1) Next j
' For j = 1 To UBound(a) st = st & Str(a(j)) Next j
List1.AddItem st st = \ Next i End Sub
Private Sub maxv( ) Dim i As Integer