End If Next i End Sub
Private Function wanshu(x As Integer, b() As Integer) As Boolean Dim i As Integer, j As Integer, sum As Integer ReDim b(1) b(1) = 1 j = 1
For i = 2 To x - 1 sum = 1
If x Mod i = 0 Then sum = sum + i j = j + 1 ReDim b(j) b(j) = i End If Next i
If sum = x Then wanshu = True End Function 3．编程题（22分） 【要求】
（1）打开“C:\\学生文件夹”中“P3.vbp”文件，根据题目要求编写和调试程序后，直接保存所有文件。
（2）程序代码书写应呈锯齿形，否则适当扣分。
【题目】编写程序，生成两个均由两位随机整数组成的数组，每个数组中的10个元素互不相同，找出存在于这两个数组中的相同的数并输出。 【编程要求】
1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界 面元素大小适中，且均可见；
2．运行程序，按“生成”按钮，调用arry过程随机生成两个数组，并分别按图示格式输出到文本框1与文本框2中；按“查找”按钮，则找出两个数组中共同存在的数据，输出到文本框3中，若没有共同的数据，则输出“无共同元素”；按“清除”按钮，将3个文本框清空；
3．程序中应定义一个名为arry的通用Sub过程，用于生成无重复数的两个数组。 Private Sub Command1_Click()
Dim i As Integer Call arry(a(), b()) For i = 1 To 10
Text1 = Text1 & a(i) & \ Text2 = Text2 & b(i) & \ Next i End Sub
Private Sub Command2_Click() Dim i As Integer, j As Integer For i = 1 To 10 For j = 1 To 10
If a(i) = b(j) Then Text3 = Text3 & a(i) & \ Next j Next i
If Len(Text3) = 0 Then Text3 = \无相同元素\End Sub
Private Sub Command3_Click() Text1 = \ Text2 = \ Text3 = \End Sub
Private Sub arry(a() As Integer, b() As Integer)
Dim m As Integer, n As Integer, i As Integer, k As Integer ReDim Preserve a(1) a(1) = Int(Rnd * 90 + 10) Do
m = Int(Rnd * 90 + 10) For i = 1 To UBound(a)
If m = a(i) Then Exit For Next i
If i = UBound(a) + 1 Then ReDim Preserve a(i) a(i) = m End If
Loop Until UBound(a) = 10 ReDim Preserve b(1) b(1) = Int(Rnd * 90 + 10) Do
n = Int(Rnd * 90 + 10) For i = 1 To UBound(b)
If n = b(i) Then Exit For Next i
If i = UBound(b) + 1 Then ReDim Preserve b(i)
b(i) = n End If
Loop Until UBound(b) = 10 End Sub
模拟练习二
第一部分 计算机信息技术基础知识
选择题（共20分，每题2分）
1．下列有关PC机及CPU芯片的叙述正确的是 D 。 A．目前PC机所用CPU芯片均为Intel公司生产 B．PC机只能安装MS-DOS或Windows操作系统
C．PC机主板型号与CPU型号是一一对应的，不同的主板对应不同的CPU D．Pentium MMX中的“MMX”是“多媒体扩展指令集”的英文缩写
2．计算机中使用的图像文件格式有多种。下面关于常用图像文件的叙述中，错误的是 A 。
A．JPG图像文件不会在网页中使用
B．BMP图像文件在Windows环境下得到几乎所有图像应用软件的支持 C．TIF图像文件在扫描仪和桌面印刷系统中得到广泛应用 D．GIF图像文件能支持动画，数据量很小
3．随着Internet的飞速发展，其提供的服务越来越多。在下列有关Internet服务及相关协议的叙述中，错误的是_C _。
A．电子邮件是Internet最早的服务之一，主要使用SMTP/POP3协议
B．WWW是目前Internet上使用最广泛的一种服务，常使用的协议是HTTP C．文件传输协议(FTP)主要用在Internet上浏览网页时控制网页文件的传输 D．远程登录也是Internet提供的服务之一，它采用的协议称为Telnet
4．在下列图像格式（标准）中，由ISO和IEC这两个国际机构联合组成的专家组所制订的是 _ C 。
A．BMP B．GIF C．JPEG D． TIF
5．二进数10111000和11001010进行逻辑“或”运算，结果再与10100110进行逻辑“与”运算，最终结果的十六进制形式为 B 。
A． 95 B． A2 C． AE D． DE 6．以下关于汉字编码标准的叙述中，错误的是 A 。 A．Unicode和GB18030中的汉字编码是相同的
B．GB18030汉字编码标准兼容GBK标准和GB2312标准 C．我国台湾地区使用的汉字编码标准主要是BIG5 D．GB18030编码标准收录的汉字数目超过2万个
7．近年来由于平板电脑/智能手机的迅猛发展，再加上安卓系统的开发性，大量的第三方软件开发商和自由软件开发者都在为安卓系统开发应用软件。目前安卓应用开发主要是基于 D 。
A．汇编语言 B．BASIC语言 C．C语言 D． JAVA语言
8．目前在网络互连中用得最广泛的是TCP／IP协议。事实上，TCP／IP是一个协议系列，它已经包含了100多个协议。在下列TCP／IP协议中，传输层使用的协议是 D 。 A．TELNET B．FTP C．HTTP D．UDP
9．MP3是一种广泛使用的数字声音格式。下列关于MP3的叙述正确的是 C 。
A．表达同一首乐曲时，MP3的数据量比MIDI声音要少得多 B．MP3声音的质量与CD唱片声音的质量大致相当 C．MP3声音适合在网上实时播放
D．同一首乐曲经过数字化后产生的MP3文件与WAV文件的大小基本相同 10．下面描述正确的是 D 。
A． 只要不使用U盘，就不会使系统感染病毒
B． 只要不执行U盘中和程序，就不会使系统感染病毒 C． 软盘比U盘更容易感染病毒
D． 设置写保护后使用U盘就不会使U盘内的文件感染病毒
第二部分 Visual Basic程序设计
一、选择题（共10分，每题2分）
1．以下的Sub过程定义语句中，正确的是 _A _。 A． Private Sub SP(a() As Integer, ByVal b As Single, c As Integer)
B． Private Sub SP(a() As Integer, ByVal b As Single, c As Integer) As Integer C． Private Sub SP(ByVal a() As Integer, b As Single, c As Integer)
D． Private Sub SP(ByVal a() As Integer, ByVal b As Single, c As Integer) 2．以下有关数组定义的说法中，错误的是 B 。 A． 固定大小数组必须先说明后使用
B． 动态数组的数据类型可以在用ReDim语句重定义是改变 C． 固定大小数组某一维的下届可以是负整数
D． 可以使用已定义的符号常数名说明数组的维界（即说明数组的大小）
3．表达式CInt(4.5)+CInt(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的运算结果是 D 。
A．1 B．-1 C．-2 D．-3 4．若要使逻辑表达式x>y Xor y A．Form、TextBox、PictureBox B．Form、PictureBox、Frame C．Form、TextBoX、Label D．PictureBox、TextBox、ListBox 二、填空题（共20分，每空2分） 1．执行下面程序，单击“生成数组”命令按钮Command1后，“数组:”图片框Picture1中显示的内容如图所示，再单击“处理”命令按钮Command2，则“结果：”图片框Picture2中第一行显示的x值是 0 ，y值是 73 _,最后一行显示的y值是 87 。 Option Base 1 Dim a(3, 5) As Integer Private Sub Command1_Click() '生成数组 Dim i As Integer, j As Integer For i = 1 To 3