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．备份存储器