发布时间 : 星期二 文章VB实验教材模拟练习（有答案）更新完毕开始阅读
【要求】
(1)打开“C:\\学生文件夹”中“P2.vbp”文件，按参考界面形式编辑窗体界面，改正程序中的错误后，直接保存所有文件；
(2)改错时，不得增加或删除语句，但可适当调整语句位置。
【题目】本程序的功能是：生成一个n行4列的整数数组，该数组的每一行第一列的元素是随机生成的一个不含数字0的三位整数，其余三列元素的值分别是前一列同行元素各位数字的连乘积。n使用InputBox函数输入。 Private Sub Command1_Click()
Dim n As Integer, ra() As Integer
Dim k As Integer, i As Integer, j As Integer n = InputBox(\数据个数：\ ReDim ra(n, 4) i = 1 Do
k = Int(Rnd * 899) + 100
If InStr(CStr(k), \ ra(i, 1) = k
Pic1.Print Right(\ \ For j = 2 To 4
ra(i, j) = fun(ra(i, j - 1))
Pic1.Print Right(\ \ Next j
Pic1.Print ':i = i + 1 End If i = i + 1 Loop Until i > n End Sub
Private Function fun(ByVal n As Integer) As Integer fun = 1 Do
fun = fun * n Mod 10 'fun = fun * (n Mod 10) n = n \\ 10
Loop While n >= 0 'Loop While n > 0 End Function
3．编程题（22分） 【要求】
（1）打开“C:\\学生文件夹”中“P3.vbp”文件，根据题目要求编写和调试程序后，直接保存所有文件。
（2）程序代码书写应呈锯齿形，否则适当扣分。 【题目】编写程序，先生成包含20个两位随机整数的数组，然后找出其中的盈数。所谓盈数，是指因子（不包含自身）之和大于其本身的正整数。例如，12的因子和为1+2+3+4+6=16，大于自身，则12是一个盈数。
【编程要求】
1．参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；
2．行程序，单击“运行”按钮，生成20个由两位随机整数组成的数组，并将数组以每行显示10个元素的方式输出在多行文本框中；然后判断数组元素中是否有盈数，若有则将它们按附图参考界面所示的格式输出到列表框中；单击“清除”按钮，将文本框与列表框清空，焦点置于“运行”按钮上；单击“退出”按钮，结束程序运行；
3．中至少应定义一个通用过程，用于求一个整数的因子或判断其是否为“盈数”。
Option Explicit Option Base 1
Private Sub Command1_Click() Dim a(20) As Integer, b() As Integer Dim i As Integer, j As Integer, sum As Integer Dim str As String For i = 1 To 20
a(i) = Int(Rnd * 90) + 10 Text1 = Text1 & a(i) & \ j = j + 1
If j Mod 10 = 0 Then Text1 = Text1 & vbCrLf Next
For i = 1 To 20 Call yinzi(a(i), b) sum = 0
For j = 1 To UBound(b) sum = sum + b(j) Next
If sum > a(i) Then str = \
For j = 1 To UBound(b) - 1 str = str & b(j) & \ Next str = str & b(j)
List1.AddItem a(i) & \
End If Next End Sub
Private Sub yinzi(n As Integer, b() As Integer) Dim i As Integer, k As Integer For i = 1 To n - 1 If n Mod i = 0 Then k = k + 1
ReDim Preserve b(k) b(k) = i End If Next End Sub
Private Sub Command2_Click() Text1.Text = \ List1.Clear
Command1.SetFocus End Sub
Private Sub Command3_Click() End End Sub
模拟练习五
第一部分 计算机信息技术基础知识
选择题（共20分，每题2分）
1． 算法设计是编写程序的基础。下列关于算法的叙述中，正确的是 C 。 A．算法必须产生正确的结果 B．算法可以没有输出 C．算法必须具有确定性 D．算法的表示必须使计算机能理解
2．交换式以太网与总线式以太网在技术上有许多相同之处，下面叙述中错误的是 C 。
A． 使用的传输介质相同 B．传输的信息帧格式相同 C． 网络拓扑结构相同 D．使用的网卡相同
3．因特网使用TCP／IP协议实现全球范围的计算机网络互连，连接在因特网上的每一台主机都有一个IP地址。下面不能作为IP地址的是 C 。
A．120.34.0.18 B．21.18.33.48 C．201.256.39.6.8 D．37.250.68.0 4．以下叙述正确的是 C 。
A．TCP/IP协议只包含传输控制协议和网络协议 B．TCP/IP协议是最早的网络体系结构国际标准 C．TCP/IP协议广泛用于异构网络的互连
D．TCP/IP协议包含7个层次
5．计算机病毒是一段很小的 B ，它是一种会不断自我复制的程序。在传统的操作系统环境下，通常它会寄存在可执行的文件之中，或者是软盘、硬盘的引导区部分。 A． 数据 B． 计算机程序 C． 文档 D． 文件 6．下列四个不同进位制的数中，数值最小的是 D 。 A．十进制数63.1 B．二进制数111111.101 C．八进制数77.1 D．十六进制数3F.1
7．若同一单位的很多用户都需要安装使用同一软件时，最好购买该软件相应的 A 。 A．许可证 B．专利 C．著作权 D．多个拷贝
8．在广域网中，每台交换机都必须有一张 D ，用来给出目的地址和输出端口的关系。
A．线性表 B．目录表 C． FAT表 D．路由表
9、以下设备中不属于输出设备的是 A 。 A．麦克风 B．打印机 C．音箱 D．显示器 10．IE浏览器和Outlook Express中使用的UTF-8和UTF-16编码是 C 标准的2种实现。 A．GB2312 B．GBK C．UCS(Unicode) D．GB18030
第二部分 Visual Basic程序设计
一、选择题（共10分，每题2分）
1．下面的过程定义语句中不正确的是 A 。 A． Private Sub MySub1(St As String * 6) B． Private Sub MySub1(Ar() As String * 6) C． Private Sub MySub1(Ar() As String) D． Private Sub MySub1(St As String)
2．能够被正确计算的表达式有 B 个。
①4096 * 2 ^ 3 ②CInt(5.6) * 5461 + 2 ③6553 * 5 + 0.5 * 6 ④32768 + 12 A． 4 B． 3 C． 2 D． 1 3．下列有关转换函数的说法正确的是： C A．Int和Cint函数的区别仅在于结果的数据类型不同
B．Int和Fix函数将非整数数据转换成整数，转换后的结果类型是Long C．Cint函数的功能是将其他类型的数据转换成Integer类型 D．在处理负数时，Int和Fix函数的结果是相同的
4．设a=3，b=2，c=1，运行print a>b>c的结果是 C 。 A．True B．False C． 1 D．出错 5．如果希望定时器控件每秒产生10个事件，则要将Interval属性的值设为 A 。 A．100 B．200 C．500 D．1000 二、填空题（共20分，每空2分）
1．执行下面程序，单击命令按钮Command1，则窗体上输出的data数组元素个数为 5 ，最后一行内容是 Basic 。