发布时间 : 星期五 文章VB实验教材模拟练习(有答案)更新完毕开始阅读
模拟练习一
第一部分 计算机信息技术基础知识
选择题（共20分，每题2分）
1．IP地址通常分为固定IP地址和动态IP地址，目前国内大多数家庭上Internet网的用户的IP地址都是 B 的。 A． 相同 B． 动态 C． 可以相同 D． 固定 2．下列四个不同进位制的数中，数值最大的是 B 。 A．十进制数73.5 B．二进制数1001101.01 C．八进制数115.1 D．十六进制数4C.4
3．下列关于台式PC机芯片组的叙述中，错误的是 D 。
A． 芯片组是主板上最为重要的部件之一，存储器控制、I/O控制等功能主要由芯片组实现 B． 芯片组与CPU同步发展，有什么样功能和速度的CPU，就需要什么样的芯片组 C． 芯片组决定了主板上能安装的内存最大容量及可使用的内存条类型 D． 同CPU一样，用户可以很方便，很简单地更换主板上的芯片组
4．路由器（Router）用于异构网络的互连，它跨接在几个不同的网络之间，所以它需要使用的IP地址个数为 _D _。
A．1 B．2 C．3 D．所连接的物理网络的数目
5．为了既能与国际标准UCS(Unicode)接轨，又能保护现有的中文信息资源，我国政府发布了 _C 汉字编码国家标准，它与以前的汉字编码标准保持向下兼容，并扩充了UCS/Unicode中的其他字符。
A．ASCII B．GB2312 C．GB18030 D．GBK
6． 在下列有关通信技术的叙述中，错误的是 C 。 A．目前无线电广播主要还是采用模拟通信技术 B．数字传输技术最早是被长途电话系统采用的
C．数字通信系统的信道带宽就是指数据的实际传输速率(简称“数据速率”) D．局域网中广泛使用的双绞线既可以传输数字信号，也可以传输模拟信号 7． 在下列有关商品软件、共享软件、自由软件及其版权的叙述中，错误的是 C 。 A．通常用户需要付费才能得到商品软件的合法使用权 B．共享软件是一种“买前免费试用”的具有版权的软件
C．自由软件允许用户随意拷贝，但不允许修改其源代码和自由传播
D．软件许可证确定了用户对软件的使用方式，扩大了版权法给予用户的权利 8．下列有关Internet的叙述错误的是 _A 。
A．随着Modem性能的提高，电话拨号上网的速度越来越快，目前可达1Mbps以上 B．用户从不同的网站下载信息，其速度通常有所不同
C．从Internet上搜索到的信息，有时不能下载到本地计算机 D．网页上的图片大多为GIF和JPEG格式
9．下面有关I／O操作的说法中正确的是 _A _。
A．为了提高系统的效率，I／O操作与CPU的数据处理操作通常是并行进行的
B．CPU执行I／O指令后，直接向I／O设备发出控制命令，I／O设备便可进行操作 C．某一时刻只能有一个I／O设备在工作
D．各类I／O设备与计算机主机的连接方法基本相同
10．在未压缩情况下，图像文件大小与下列因素无关的是 A 。 A．图像内容 B．水平分辨率 C．垂直分辨率 D．像素深度
第二部分 Visual Basic程序设计
一、选择题（共10分，每题2分） 1．数学表达式log10x?ex?1x2?y2?对应的VB表达式为 B 。
?cos(60)A．Log(x) / Log(10) + Abs(Sqr(x ^ 2 + y ^ 2)) / (Exp(x + 1) - Cos(60 * 3.14159 / 180)) B．(Log(x) / Log(10) + Abs(Sqr(x * x + y * y))) / (Exp(x + 1) - Cos(60 * 3.14159 / 180)) C．(Log(x) + Abs(Sqr(x ^ 2 + y ^ 2))) / (Exp(x + 1) - Cos(60 * 3.14159 / 180)) D．(Log(x) + Abs(Sqr(x * x + y * y))) / (e ^ (x + 1) - Cos(60 * 3.14159 / 180))
2．已知X
C．实参为动态数组时，可用ReDim语句改变对应形参数组的维界 D．只需把要传递的数组名作为实参，即可调用过程
4．在文本框Text1中输入数字12，在文本框Text2中输入数字34，执行以下语句，可在文本框Text3中显示46的是 _B 。 A．Text3.Text=Text1.Text & Text2.Text
B．Text3.Text=Val(Text1.Text)+Val(Text2.Text) C．Text3.Text=Text1.Text+Text2.Text
D．Text3.Text=Val(Text1.Text) &Val(Text2.Text)
5．Print方法可在 _A 上输出数据。
①窗体 ②文本框 ③图片框 ④标签 ⑤列表框 ⑥立即窗口 A．①③⑥ B．②⑨⑤ C．①②⑤ D．③④⑥ 二、填空题（共20分，每空2分）
1．执行下面程序，单击命令按钮Command1，在弹出的InputBox对话框中输入8，并按“确
定”按钮，则a (1)的值是 21 ，a (5)的值是 _3 _ Option Explicit Option Base 1
Private Sub Command1_Click()
Dim a() As Integer, i As Integer, n As Integer n = InputBox(\输入N\ ReDim a(n)
Call process(a, 1, 1) For i = 1 To n Print a(i) Next i End Sub
Private Sub process(a() As Integer, m As Integer, n As Integer) Dim i As Integer i = UBound(a) a(i) = m a(i - 1) = n i = i - 2
Do While i >= 1
a(i) = a(i + 1) + a(i + 2) i = i - 1 Loop End Sub
2．执行下面的程序，单击Command1，则数组元素a(1,2)的数值是 15 ，a(2,3) 的数值是 9 ，a(4,3)的值是 2 。 Option Explicit
Private Sub Command1_Click()
Dim a(4, 4) As Integer, i As Integer
Dim j As Integer, k As Integer, n As Integer n = 16: k = 2 Do
For i = 1 To 4 For j = 1 To 4
If i + j = k Then a(i, j) = n n = n - 1 End If Next j Next i k = k + 1 Loop Until k > 8 For i = 1 To 4 For j = 1 To 4
Print Right(\ \ Next j Print Next i End Sub
3．执行下面程序，单击按钮Command1，在窗体上第一行显示的内容是 0.6 ，第三行显示的内容是 5.4 。
Option Explicit
Private Sub Command1_Click() Dim x As Single, i As Integer x = 1.2 For i = 1 To 3
x = x * i Print fun1(x) Next i End Sub
Private Function fun1(x As Single) As Single Static y As Single y = y + x fun1 = y / 2 End Function
4．运行下面程序，单击CmdRun，在窗体上显示a的值是 -25 ，b的值是 14 _ ，i的值是 13 _ 。
Option Explicit
Private Sub CmdRun_Click()
Dim i As Integer, a As Integer, b As Integer a = 1: b = 10
For i = a To b Step a + 1
a = a - i – 1: b = b + 1: i = i + 1 Next i Print a, b, i End Sub
三、操作题（共50分） １．完善程序。（共12分）
【要求】
打开“C:\\学生文件夹”中“P1.vbp”文件，按参考界面形式编辑窗体界面，完善程序后，直接保存所有文件。
【题目】本程序的功能是，找出使用公式m?m?41（m=1~100）生成的一个数据序列中的所有非素数，分别输出这些非素数的全部真因子。所谓数据n的真因子是指除1和n之外的因子。
Option Explicit
Private Sub Command1_Click() Dim m As Integer, p As Long Dim st1 As String For m = 1 To 100
st1 = _' \ p = m * m - m + 41
2