计算机二级考试题库：VB填空题

Do While I <= N - 1

If N Mod I = 0 Then S = S + _____ I = I + 1 Loop

If N = _____ Then Print \"是完全数\" Else

I S

求S=1！+2！+„10! * 程序段如下： s = _____

for i=1 to 10 t = 1

for j = 1 To i

t= t * _____ next j s = s + t Next i Print s

0 i

使用冒泡排序法，将一维数组A按从大到小排序（降序）。 * 程序段如下：

Private Sub Command启动_Click() Dim a(10) As Integer

Dim i As Integer, j As Integer, t As Integer For i = 1 To 10

a(i) = Int(90 * Rnd) + 10 Print a(i);

Next i _____ Print For i = 10 To 2 Step -1

For j = 1 To ______ 1 If a(j) < a(j + 1) Then

t = a(j): a(j) = a(j + 1): a(j + 1) = t End If

Next j Next i

For i = 1 To 10 Print a(i); Next i: Print End Sub

: 10 –

程序功能：统计二维数组A(1 TO 6, 1 TO 6)中是3的倍数元素之积并在窗体上输出其结果。数组元素值为[0，100]内的随机整数。 * 程序代码如下： Option Base 1

Private Sub Form_Click() Dim A(6, 6),s& For I = 1 To 6

For J = 1 To 6

A(I, J) = Int(Rnd * 101) Print A(I, J); Next J Print Next I Print

s= _____ For I = 1 To 6

For J = 1 To 6

if a(i,j) mod 3=0 then s=s* __________ end if Next J Next I

Print \"数组中是3的倍数元素之积为：\"; s

0 a(i,j)

利用判定是否是素数（除了1和自身之外不能被其他数正除的自然数）的子过程，求出100以内的所有素数。 * 程序代码如下：

Public Sub shus(x)

Dim i%, flag As Boolean flag = True

For i = 2 To x - 1

If (x Mod i) = 0 Then flag = False Next i

If flag = True Then Print _____ ; \"为素数\" End Sub

Private Sub Command1_Click() Dim j%

For j = 2 To 100

Call ___________ Next j

i Shus(j)

求S=1！+2！+„10! * 程序段如下： S = 0 N = 0

T = _____ Do

N = N + 1 T = T * N S = S + T

Loop While _____ < 10 Print S

1 N

求出10-50（包括10，50）之间的素数。 * 程序段如下：

for m=10 to 50 for i = 2 To m-1

If (m Mod i) _____ 0 Then Exit For End If Next i

If i _______ m-1 Then Print m;\"是素数\" End If next m

= >

求一维数组A中，大于平均值的最大值和最小值。 * 程序段如下：

Private Sub Command启动_Click()

Dim a(20) As Integer, i As Integer, aver As Integer Dim max As Integer, min As Integer aver = 0

For i = 1 To 20

a(i) = Int(90 * Rnd) + 10 Print a(i);

aver = ________ + a(i) Next i: Print aver = aver / 20 Print \"aver=\"; aver max = 0: min = 100 For i = 1 To 20

If a(i) > ________ Then

If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) End If Next i

Print \"Max=\"; max Print \"Min=\"; min End Sub

aver aver

程序功能：统计二维数组A(1 TO 6, 1 TO 6)中是7的倍数元素之和并在窗体上输出其结果。数组元素值为[0，100]内的随机整数。 * 程序代码如下： Option Base 1

Private Sub Form_Click() Dim A(6, 6),sum& For I = 1 To 6

For J = 1 To 6

A(I, J) = Int(Rnd * 101) Print A(I, J); Next J Print Next I Print

sum= _____ For I = 1 To 6

For J = 1 To 6

if __________ mod 7=0 then sum=sum+a(i,j) end if Next J Next I

Print \"数组中是7的倍数元素之和为：\"; sum End Sub

0 a(I,J)

设计一个顺序查找的函数过程，根据查找的关键值与数组中的元素逐一比较， * 若找到，函数值为元素的下标；若找不到，函数值为-1。 * 程序代码如下：

Public Function Search(a() As Variant, ByVal key As Variant) Dim i%

For i = LBound(a) To UBound(a)

If _______ = a(i) Then Search = i Exit Function End If Next I

Search = ______ End Function

Key -1

输出如下图形。

********* $$$$$$$ ***** $$$ * * 程序段如下：

For I = _____ To 1 Step -1 Print Tab(10 - I);

If I Mod 2 <> 0 ________ Print String(2 * I - 1, \"*\") Else

Print String(2 * I - 1, \"$\") End If Next I

5 Then

求出10-50（包括10，50）之间的素数。 * 程序段如下：

for m=10 to 50 for i = 2 To m-1

If (m Mod i) _____ 0 Then Exit For End If ________ i If i>m-1 Then

Print m;\"是素数\" End If next m

= Next

利用随机函数产生20个10～99之间的随机整数存入一维数组A， * 然后分四行用标准打印格式打印输出，每行五个数。 * 程序段如下：

Private Sub Form_Click()

Dim a(20) As Integer, i As Integer For i = 1 To 20

a(i) = Int(Rnd * 90 + 10)

If _____ Mod ________ 0 Then Print a(i) Else

Print a(i), End If Next i End Sub

i 5=

程序功能是统计二维数组A(1 TO 6, 1 TO 6)所有非靠边元素中奇数元素的个数，并在窗体上输出其结果。

* 数组元素值为[0，10]内的随机整数。 * 程序代码如下： Option Base 1

Private Sub Form_Click() Dim a%(6, 6), n%

For i = 1 To 6 For j = 1 To 6

a(i, j) = Int(Rnd * 11) Next j Next i

n = _____ For i = 1 To 6

For _____ = 1To 6

If i > 1 And i < 6 And j > 1 And j < 6 And a(i, j) Mod 2 = 1 Then n = n + 1 Next j Next i

Print \"所有非靠边元素中奇数元素的个数为：\"; n End Sub 0 j

利用判断一个数是否为完数的子过程，求出100以内的完数。 * （说明：一个数等于它所有因子（不包括自身），这个数就是完数，如，6=1+2+3） * 程序代码如下：

Private Sub Command1_Click() For j = 1 To 100

Call __________ Next j End Sub

Private Sub wan(i) Dim a%, s% a = i \\ 2 s = 0

For k = 1 To _____ If i Mod k = 0 Then s = End If Next k

If i = s Then

Print i, \"是完数\" End If End Sub Wan(j) a

下面程序用于求小于和等于50的自然数的平方和，请填空。 * 程序段如下：

private sub form_click() dim sum as long

sum=0

for i= _____ to 50 sum=sum+i^2 next _____ print sum end sum

1 i

求出10-50（包括10，50）之间的素数。 * 程序段如下：

for m=10 to 50 for i = 2 To m-1

If (m Mod i) _____ 0 Then Exit For End If ________ i If i>m-1 Then

Print m;\"是素数\" End If next m

= Next

求一维数组A中，大于平均值的最大值和最小值。 * 程序段如下：

Private Sub Command启动_Click()

Dim a(20) As Integer, i As Integer, aver As Integer Dim max As Integer, min As Integer aver = 0

For i = 1 To 20

a(i) = Int(90 * Rnd) + 10 Print a(i);

aver = ________ + a(i) Next i: Print aver = aver / 20 Print \"aver=\"; aver max = 0: min = 100 For i = 1 To 20

If a(i) > ________ Then

If a(i) > max Then max = a(i) If a(i) < min Then min = a(i)

End If Next i

Print \"Max=\"; max Print \"Min=\"; min End Sub

aver aver

程序功能是统计二维数组A(1 TO 6, 1 TO 6)第一行和最后一行所有元素中偶数元素的个数，并在窗体上输出其结果。

* 数组元素值为[0，10]内的随机整数。 * 程序代码如下：

Option Base 1

Private Sub Form_Click() Dim a%(6, 6), n% For i = 1 To 6 For j = 1 To 6

a(i, j) = Int(Rnd * 11) Next j Next i

n = _____ For i = 1 To 6 For j = 1 To 6

If (i = 1 ______ i = 6) And a(i, j) Mod 2 = 0 Then n = n + 1 Next j Next i

Print \"第一行和最后一行所有元素中偶数元素的个数为：\"; n End Sub

0 or

设计一个可以求计算1！+2！+3！+„„+n!的子过程。 * 程序代码如下：

Private Sub jc(n) Dim I As Integer _________ For I = 1 To n _________ For j = 1 To I f = f * j Next j s = s + f

Next I

Print \"小于自然数\"; N; \"的自然数阶乘之和为：\"; s End Sub

S=0 F=1

求菲波那契数列（1、1、2、3、5、8...）的第3到10项的值。 * 程序段如下： A = 1 B = 1 I = 3

Do While I <= 10 C = A + _____

Print \"第\" & I & \"项为: \"; C A = B

B = _____ I = I + 1 Loop

B C

根据π/4=1-1/3+1/5-1/7+„..+(-1)n-1/(2n-1)，分别求n=2000、2500、3000时π的近似值。 * 程序代码如下：：

Private Sub Form_Click()

For i = 2000 To 3000 Step 500 s = 0

_____ = 1 For j = 1 To i

_____ = 1 / (2 * j - 1) s = s + m * t m = -m Next j

Print \"i=\"; i, \"pi=\"; s Next i

m t

用随机函数产生n个10～99之间的随机整数存入一维数组A，通过键盘输入X，然后在数组中查找。

* 如果找到了，则给出“找到”信息，否则，把这个数X插入到数组中的最后。 * 程序段如下：

Private Sub Form_Click()

Dim n As Integer, a(100) As Integer Dim x As Integer, i As Integer Dim flag As Boolean Do

n = InputBox(\"N=\")

Loop Until n >= 1 And n <= 99 Print

For i = 1 To n

a(i) = Int(90 * Rnd + 10) Print a(i); Next i: Print

x = InputBox(\"X=\") Print \"X=\"; x flag = False For i = 1 To n

If a(i) = x Then

flag = ________ Exit For End If Next i

If Not ________ Then n = n + 1 a(n) = x

For i = 1 To n Print a(i); Next i Else

Print \"找到\" End If End Sub

True Flag

程序功能是求二维数组A(1 TO 6, 1 TO 6)第一列所有元素之和，并在窗体上输出其结果。 * 数组元素值为[0，10]内的随机整数。 * 程序代码如下：

Option Base 1

Private Sub Form_Click() Dim a%(6, 6), n% For i = 1 To 6 For j = 1 To 6

a(i, j) = Int(Rnd * 11)

Next j Next i

Sum = _____ For i = 1 To 6

Sum = Sum + ___________ Next i

Print \"第一列所有元素之和为：\"; Sum End Sub

0 a(i,1)

设计一个函数过程 sum，sum 的功能是求任意一维数组中各元素之和。 * 程序代码如下：

Function sum( _____ () As Integer) Dim s#, i% s = 0

For i = LBound(a) To UBound(a) s = s + a(i) Next i

___________ End Function

a sum=s

求T=2×4×6×8ׄ×30 * 程序段如下： T = 1

For I = 2 To ______ Step 2 T = T * _____ Next I

Print \"乘积为: \"; T

30 I

求S=1！+2！+„10! * 程序段如下： s = _____

for i=1 to 10 t = 1

for j = 1 To i

t= t * _____

next j s = s + t Next i Print s 0 I

用随机函数产生n个10～99之间的随机整数存入一维数组A，通过键盘输入X，然后在数组中查找。

* 如果找到了，就把这个数从数组中删去；如果没有找到，则给出“无可删除的元素”信息。

* 程序段如下：

Private Sub Form_Click()

Dim n As Integer, a(100) As Integer Dim x As Integer, i As Integer Dim k As Integer, flag As Boolean Do

n = InputBox(\"N=\")

Loop Until n >= 1 And n <= 100 For i = 1 To n

a(i) = Int(90 * Rnd + 10) Print a(i); Next i: Print

x = InputBox(\"X=\"): Print \"X=\"; x flag = False For i = 1 To n

If a(i) = x Then

flag = ________ k = i Exit For End If Next i

If _______ flag Then Print \"无可删除的元素\" Else

For i = k To n - 1 a(i) = a(i + 1) Next i: n = n - 1 For i = 1 To n Print a(i); Next i End If End Sub

True Not

程序功能是求二维数组A(1 TO 6, 1 TO 6)最后一列所有元素之和，并在窗体上输出其结果。 * 数组元素值为[0，10]内的随机整数。 * 程序代码如下：

Option Base 1

Private Sub Form_Click() Dim a%(6, 6), n% For i = 1 To 6 For j = 1 To 6

a(i, j) = Int(Rnd * 11) Next j Next i

Sum = _____ For i = 1 To 6

Sum = Sum + ___________ Next i

Print \"最后一列所有元素之和为：\"; Sum End Sub 0 a(i,6)

求菲波那契数列（1、1、2、3、5、8...）的第3到10项的值。 * 程序段如下： A = 1 B = 1 I = 3

Do While I <= 10 C = A + _____

Print \"第\" & I & \"项为: \"; C A = B

B = _____ I = I + 1 Loop B C

输出下列文字图形： 郑 郑州 郑州大

郑州大学 * 程序代码如下： Option Base 1

Private Sub Form_Click() Dim a()

_____ = Array(\"郑\州\大\学\") For k = 1 To 4

For j = 1 To _____ Print a(j); Next j Print Next k End Sub

a k

程序功能是实现矩阵转置，即将M×N的矩阵的行和列互换。 * 如将下列矩阵A转换为B

┏ ┓ ┏ ┓ ┃1 2┃ ┃1 3 5 ┃

A = ┃3 4┃ B = ┃ ┃ ┃5 6┃ ┃2 4 6 ┃ ┗ ┛ ┗ ┛

* 程序代码如下： Option Base 1

Private Sub Form_Click() Dim _____ (3, 2),B(2, 3) For I = 1 To 3 For J = 1 To 2

A(I, J) = (I - 1) * 2 + J Print A(I, J); Next J Print Next I

For I = 1 To 2 For J = 1 To 3

B(I, J) = ___________ Print B(I, J); Next J Print

Next I End Sub

A A(J,I)

程序的功能是：计算并输出[3,100]以内所有的素数及它们的和。 * 程序代码如下：

Function Prm(n) f = -1

For i = 2 To Sqr(n)

If n Mod i = 0 Then _________ Next i Prm = f

________________ Private Sub Form_Click() dim sum as double,i as integer For i = 3 To 100 If Prm(i) Then Print i;

sum = sum + i End If Next i

Print \"sum=\"; sum End Sub f=0 End Function

求菲波那契数列（1、1、2、3、5、8...）的第3到10项的值。 * 程序段如下： A = 1 B = 1

For I = 3 To 10

_____ = A + B

Print \"第 \" & I & \"项为: \"; C A = B

B = _____ Next I C C

根据π/4=1-1/3+1/5-1/7+„..+(-1)n-1/(2n-1)，分别求n=1000、2000、3000时π的近似值。 * 程序代码如下：：

Private Sub Form_Click()

For i = 1000 To 3000 Step ________ s = 0 f = 1

For j = 1 To i

t = 1 / (2 * j - 1) s = s + f * t _____ = -f Next j

Print \"i=\"; i, \"pi=\"; s Next i End Sub

1000 f

利用数组求裴波那契数列1,1,2,3,5,...的前20项。 * 程序段如下：

Private Sub Command启动_Click() Dim a(20) As Integer, i As Integer a(1) = 1: a(2) = 1 Print a(1); a(2);

For i = _____ To ______ a(i) = a(i - 1) + a(i - 2) Print a(i); Next i: Print End Sub 3 20

程序功能：统计二维数组A(1 TO 6, 1 TO 6)中是7的倍数元素之和并在窗体上输出其结果。数组元素值为[0，100]内的随机整数。 * 程序代码如下： Option Base 1

Private Sub Form_Click() Dim A(6, 6),sum& For I = 1 To 6

For J = 1 To 6

A(I, J) = Int(Rnd * 101) Print A(I, J); Next J Print Next I Print

sum= _____ For I = 1 To 6

For J = 1 To 6

if __________ mod 7=0 then sum=sum+a(i,j) end if Next J Next I

Print \"数组中是7的倍数元素之和为：\"; sum End Sub

0 a(i,j)

设计一个可以计算阶乘的函数过程 fac(n) = n! * 程序代码如下：

Public Function fac(n As Integer) As Integer Dim i% , jc As Single jc = 1

For i = 1 To n

______ = jc * i Next i

____________ End Function

jc fac=jc

求S=1！+2！+„10! * 程序段如下： S = 0 N = 0

T = _____ Do

N = N + 1 T = T * N S = S + T

Loop While _____ < 10 Print S

1 N

将一维数组A反序放入一维数组B中。 * 程序段如下：

Private Sub Command启动_Click()

Dim a(10) As Integer, b(10) As Integer, i As Integer For i = 1 To 10

a(i) = Int(90 * Rnd) + 10 Print a(i);

b( ________ )= ________ Next i: Print For i = 1 To 10 Print b(i); Next i: Print End Sub

11-i a(i)

程序功能：求二维数组A(1 TO 6, 1 TO 6)中所有元素之和并在窗体上输出其结果。数组元素值为[0，100]内的随机整数。 * 程序代码如下： Option Base 1

Private Sub Form_Click() Dim A(6, 6),sum& For I = 1 To 6

For J = 1 To 6

A(I, J) = Int( _______ * 101) Print A(I, J); Next J Print Next I Print sum=0

For I = 1 To 6

For J = 1 To 6

sum=sum+ __________ Next J Next I

Print \"数组中所有元素之和为：\"; sum End Sub

Rnd A(I,J)

设计一个可以计算 1～n 之间的奇数和的函数过程。 * 程序代码如下：

Public Function sum(n As Integer) As Integer Dim s% s = 0

For i = 1 To n

If i Mod _____ <> 0 Then s = s + i Next i

___________ End Function

2 sum=s

求T=N!

* 程序段如下： T = 1

_________ Do While I <= N T = T * _____ I = I + 1 Loop

Print Str(N) & \"的阶乘为: \"; T

I=1 I

求S=1！+2！+„10! * 程序段如下： s =0

for i=1 to 10 t = _____ for j = 1 To i

t= t * _____ next j s = s + t Next i Print s

1 j

求一维数组A中，范围在30～60之间的最大值和最小值。 * 程序段如下：

Private Sub Command启动_Click() Dim a(20) As Integer, i As Integer Dim max As Integer, min As Integer For i = 1 To 20

a(i) = Int(90 * Rnd) + 10 Print a(i); Next i: Print

max = 0: min = 100 For i = 1 To 20

If a(i) >= 30 _______ a(i) <= ______ Then If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) End If Next i

Print \"Max=\"; max Print \"Min=\"; min End Sub

And 60

程序功能是把一个5×5的矩阵的第一列和第四列元素互换。 * 程序代码如下： Option Base 1

Private Sub Form_Click() Dim a(5, 5) For i = 1 To 5 For j = 1 To 5

a(i, j) = (i - 1) * 5 + j Print a(i, j); Next j Print Next i Print

For i = 1 To 5

t = ___________

a(i, 1) = ___________ a(i, 4) = t Next i

For i = 1 To 5 For j = 1 To 5 Print a(i, j); Next j Print

Next i End Sub

a(i,1) a(i,4)

利用子过程求 s=5!+6! 。 * 程序代码如下：

Private _______ Command2_Click() Dim s&, f1&, f2& Call fact(5, f1) Call fact(6, f2) s = f1 + f2 Print s End Sub

Private Sub fact(n, f) f = 1

For i = 1 To n

f = ______ i Next i End Sub

Sub f*

求T=N!

* 程序段如下： T = _____ For I = 1 To N

T = _____ * I Next I

Print Str(N) & \"的阶乘为: \"; T

1 T

根据π/4=1-1/3+1/5-1/7+„..+(-1)n-1/(2n-1)，分别求n=3000、2500、2000时π的近似值。 * 程序代码如下：：

Private Sub Form_Click()

For i = 3000 To 2000 Step ________ s = 0 m = 1

For j = 1 To i

t = 1 / (2 * j - 1)

s = s + m * _____ m = -m Next j

Print \"i=\"; i, \"pi=\"; s Next i End Sub

-500 t

求一维数组A(1 TO 8)的最大元素值。 * 程序段如下：

_______ = A(1) For I = 2 To 8

If Max < A(I) Then _______ = A(I) Next I

Print \"最大元素值为: \"; Max

Max Max

程序功能是统计二维数组A(1 TO 6, 1 TO 6)所有靠边元素中偶数元素的个数，并在窗体上输出其结果。

* 数组元素值为[0，10]内的随机整数。 * 程序代码如下： Option Base 1

Private Sub Form_Click() Dim _____ %(6, 6), n% For i = 1 To 6 For j = 1 To 6

a(i, j) = Int(Rnd * 11) Next j Next i

n = _____ For i = 1 To 6 For j = 1 To 6

If (i = 1 Or i = 6 Or j = 1 Or j = 6) And a(i, j) Mod 2 = 0 Then n = n + 1 Next j Next

Print \"所有靠边元素中偶数元素的个数为：\"; n End Sub

a 0

利用计算1！+2！+3！+„„+n!的子过程，求出1!+2!+3!+4!+5!+6!+7!的值。 * 程序代码如下：

Private Sub Command9_Click() Dim s1&

jc _________

Print \"1!+2!+3!+4!+5!+6!+7!=\"; s1 End Sub

Private Sub jc(s, n) Dim I As Integer s = 0

For I = 1 To n _________ For j = 1 To I f = f * j Next j s = s + f Next I End Sub

s1,7 f=1

求正整数M和N（M>N）的最大公约数。 * 程序段如下：

_____ = M Mod N Do While R <> 0 M = N

N = _____ R = M Mod N Loop

Print \"最大公约数为: \"; N

R R

求出10-50（包括10，50）之间的素数。 * 程序段如下：

for m=10 to 50 for i = 2 To m-1

If (m Mod i) _____ 0 Then Exit For End If ________ i If i>m-1 Then

Print m;\"是素数\" End If next m

= Next

求一维数组A中的最大值Max和最小值Min。 * 程序段如下：

Private Sub Command启动_Click() Dim a(10) As Integer, i As Integer

_______ max As Integer, min As Integer For i = 1 To 10

a(i) = Int(90 * Rnd) + 10 Print a(i); Next i: Print

max = a(1) _____ min = a(1) For i = 2 To 10

If a(i) > max Then max = a(i) If a(i) < min Then min = a(i) Next i

Print \"Max=\"; max Print \"Min=\"; min End Sub

Dim :

设计一个可以计算 n个0～100 的随机整数之和的函数过程。 * 程序代码如下：

Function sum(n As Integer) As Integer Dim i%, s As Single s = 0

For i = 1 To n

s = s + _______ (Rnd * 101) Next i

___________ End Function

Int Sum=s

求T=N!

* 程序段如下： T = 1 I = 1

Do Until I > _____ T = T * I

I = I + _____ Loop

Print Str(N) & \"的阶乘为: \"; T

N 1

求S=1！+2！+„10! * 程序段如下： s = _____

for i=1 to 10 t = _____ for j = 1 To i t= t * j next j s = s + t Next i Print s 0 1

输出人才标准的文字三角形（结果如下所示） 品德

品德、知识

品德、知识、能力

品德、知识、能力、业绩 * 程序代码如下： Option Base 1

Private Sub Form_Click() Dim a()

a = Array(\"品德\、知识\、能力\、业绩\") For k = 1 To 4

For j = _____ To k Print a(j); Next j

Print

________ k End Sub

1 Next

设计一个可以输出100以内能同时被3和5整除的数的子过程。 * 程序代码如下：

Private Sub ab()

For i=1 To _______

If i Mod 3=0 And i Mod 5 = 0 then Print _____ ; End If Next i End Sub

100 i

求菲波那契数列（1、1、2、3、5、8...）的第3到10项的值。 * 程序段如下： A = 1 B = 1

For I = 3 To 10 C = A + B

Print \"第 \" & I & \"项为: \"; _____ A = _____ B = C Next I

C B

求出10-50（包括10，50）之间的素数。 * 程序段如下：

for m=10 to 50

_______ i = 2 To m-1 If (m Mod i) = 0 Then Exit _______ End If Next i

If i>m-1 Then

Print m;\"是素数\" End If next m

For For

用随机函数产生n个10～99之间的随机整数存入一维数组A，通过键盘输入X，然后在数组中查找。

* 如果找到了，则给出“找到”信息，否则，把这个数X插入到数组中的最后。 * 程序段如下：

Private Sub Form_Click()

Dim n As Integer, a(100) As Integer Dim x As Integer, i As Integer Dim flag As Boolean Do

n = InputBox(\"N=\")

Loop Until n >= 1 And n <= 99 Print

For i = 1 To n

a(i) = Int(90 * Rnd + 10) Print a(i); Next i: Print

x = InputBox(\"X=\") Print \"X=\"; x flag = False For i = 1 To n

If a(i) = x Then flag = True Exit For End If Next i

If Not flag Then _______ + 1 ________ = x For i = 1 To n Print a(i); Next i Else

Print \"找到\" End If End Sub n=n+1

a(n)

程序功能：统计二维数组A(1 TO 6, 1 TO 6)中0元素的个数并在窗体上输出其结果。数组元素值为[0，100]内的随机整数。 * 程序代码如下： Option Base 1

Private Sub Form_Click() Dim A(6, 6),n% For I = 1 To 6

For J = 1 To 6

A(I, J) = Int(Rnd * 101) Print A(I, J); Next J Print Next I Print

n= _____ For I = 1 To 6

For J = 1 To 6 if a(i,j) =0 then n=n+ _____ end if Next J Next I

Print \"数组中0元素的个数为：\"; n End Sub

0 1

利用子过程求 s=7!+9! 。 * 程序代码如下

Private Sub Command2_Click() Dim s&, f1&, f2& Call fact(7, f1) Call fact(9, f2) _____ = f1 + f2 Print s End Sub

Private Sub fact(n, f) f = 1

For i = 1 To n

f = _____ * i Next i

End Sub

s f