江苏省计算机二级VB试题及答案 下载本文

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