Private Function fun2(x As Single) As Single fun2 = （14） End Function
12．运行下列程序，单击窗体后在图片框第四行的数据是 （15） ，最后一行的数据是 （16） 。
Private Sub form_Click()
Dim sum As Integer, sum1 As Integer sum1 = 0 For i = 1 To 10 sum = 1 For j = 2 To i - 1 If i Mod j = 0 Then sum = sum + j sum1 = sum1 + sum End If Next j sum Next i sum1
End Sub
13．有一个小于500的数，其特征是分别被2～6除的余数为1，能被7整除，问这个数是多少?将结果输出到立即窗体并写在文件中。给定的程序不完整，将程序补充完整。
Private Sub Form_Click()
Open \ For i = 7 To 500 Step 14 j = 2
（17） Do While j < 7
If （18） Then flg = 0: Exit Do j = j + 1 Loop
If flg = 1 Then i: a = i Next i Print #1, a Close #1 End Sub
14．程序的功能是计算下列多项式的值：
其中x = ，计算精度为10-6。给定的程序不完整，将程序补充完整。
Private Sub Form_Click() i = 2: x = 2 n = 1: s = 1 Do
n = （19） e = x ^ (i - 1) / n s = s + e i = i + 1
Loop While （20） Print s End Sub
15．在窗体有一个标签控件Label，运行程序后在窗体单击右键，则标签 （21） ，在窗体显示的内容为 （22） 。
Option Base 1
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) Dim a, s1 As Single, s2 As Single, k As Single a = Array, , , , , , , , , If Button = 2 Then s1 = 0: s2 = 0
For i = 1 To UBound(a)
f(x)?1?x/2!?x2/3!???xn?1/n!
k = Fix(a(i)) s1 = s1 + k
s2 = s2 + a(i) - k Next i
Print s1; s2 End If = + s1 End Sub
16．运行下列程序：
Private Sub Form_Click() k = 5: m = 1 p = fun1(k, m) p = fun1(k, m) Print p End Sub
Private Static Function fun1(a, b) As Integer Dim m As Integer, i As Integer If m = 0 Then m = m + 1 i = m + 1 m = i + a + b fun1 = m End Function
单击窗体后，则在窗体上显示的结果是 （23） 。
17．下列程序的功能是，随机产生6×6个具有两位数的矩阵，并计算每行值之和，如图1所示。给定的程序不完整，将程序补充完整。
Option Base 1
Private Sub Command1_Click() Dim a(6, 6) As Integer Randomize For i = 1 To 6 For j = 1 To 6
a(i, j) = （24） Next j Next i For i = 1 To 6 Sum = 0 For j = 1 To 6
Sum = Sum + a(i, j) （25） Next j \ Next i End Sub
18．验证：任意给定一个自然数x，如果是偶数，则变换成x/2，如果是奇数，则变换成3x+1。
C(x)=
x/2(x是偶数)
3x+1(x是奇数)
{
此后，再对得数继续进行上述变换。例如x=52，可以陆续得出26，13，40，20，10，5，16，8，4，2，1，最终得到1。再试其他的自然数也会得出相同的结果，如图2所示。给定的程序不完整，将程序补充完整。
Private Sub Command1_Click() s = Val s Do
If （26） Then s = s / 2 Else
s = 3 * s + 1 End If s
Loop （27） End Sub
19．下面程序的功能是随机生成10个不同的两位数，从中找出所有互质数对。若两个数除了1以外没有其他公约数，这两个数就是互质数。其
中函数Rec是一个递归函数。程序界面参见图3。
Option Explicit
Private Sub Command1_Click()
Dim a(10) As Integer, i As Integer, j As Integer Dim n As Integer, k As Integer Randomize
（28） = Int(90 * Rnd) + 10 = a(1) k = 2 Do While k <= 10 n = Int(90 * Rnd) + 10 If InStr, CStr(n)) = 0 Then = & Str(n) a(k) = n
（29） End If Loop For i = 1 To 9 For j = i + 1 To 10
If rec(a(i), a(j), 2) Then Str(a(i)) & Str(a(j)) End If Next j Next i End Sub
Private Function rec(n As Integer, m As Integer, k As Integer) As Boolean If k > n Then
rec = （30） Else
If n Mod k = 0 And m Mod k = 0 Then rec = False Exit Function Else
rec = rec(n, m, k + 1) End If End If End Function
二级Visual Basic全真模拟试卷五参考答案一、选择题：1．A2．B3．D4．C5．C6．B7．A8．A9．B10．B11．C 12．B13．A14．B15．A16．B17．C18．D19．D20．A21．C22．D23．D24．A25．B26．B27．C28．C29．B
30．C二、填空题：（1）分隔符条（2）4（3）（4）ADO Data（5）4（6）16（7）ACEB（8）1（9）10（10）12（11）6（12）123（13）Abs(y)>（14）6*x*x-4*x+5（15）3（16）37（17）flg=1（18）i Mod j<>1（19）n*i（20）e>（21）右移动（22）（23）15（24）Int(90*Rnd)+10（25） a(i,j);（26）s Mod 2=0（27）Until s=1（28）a(1)（29）k=k+1（30）True
二级Visual Basic全真模拟试卷六
1．现在已经不再沿用“第**代计算机”的说法。人们正在研究开发的计算机系统，主要着眼于计算机的 1 ，它以知识处理为核心，具有自然的人机通信能力。当然，这是一个需要长期努力才能实现的目标。
A．运算能力 B．智能化 C．通信能力 D．网络化
2．微电子技术是以集成电路为核心的电子技术。在下列有关集成电路（IC）的叙述中，错误的是 2 。
A．目前PC机中所用的的电子元器件均为大规模和超大规模集成电路 B．集成电路的许多工序必须在恒温、恒湿、超洁净的无尘厂房内完成 C．现代集成电路使用的半导体材料大多是硅（Si） D．Moore定律指出（预言），集成电路的集成度平均18~24个月翻一番
3．采取多路数据传输合用一条传输线，这就是多路复用技术，下面对于多路复用技术的说法中，不正确的是 3 。 A．计算机中使用的最基本的多路复用技术是时分多路复用
B．目前有线电视采用频分多路复用技术在同一电缆上传输多套节目的 C．无线电广播信号传输所采用的信道复用技术是时分多路复用技术
D．时分多路复用不仅仅局限于传输数字信号，也可以同时交叉传输模拟信号 4．根据某进制数的运算规则2×3=10，在该进制下3×5= 4 。
A．23 B．17 C．15 存中的程序及相关数据必须先传送到内存，然后才能被CPU使用。 A．寄存器 B．移动存储器 C．辅助存储器 6．下列关于USB接口的叙述中，错误的是 6 。
A．一般来说，1394接口的传输速度低于USB接口 B．一个USB接口通过USB集线器可以连接多个设备
D．21
5．外存储器也称为 5 ，其存储器容量很大，它长期存放计算机系统中几乎所有的信息。计算机执行程序时，外
D．备份存储器