文档介绍：VB编程题库
第一部分 能读懂程序，会填空或者输出结果
1输入圆的半径，计算圆的面积，并输出。
Private Sub Command1_Click() Dim r!, s!
r = InputBox("请输入半径", "输入为[0，20 )，
计算数组中每一列数据的和
Option Base 1
Private Sub Form_Click() Randomize
Dim a(1 To 5, 1 To 5)
For i = 1 To 3
For j = 1 To 3
a(i, j) = Int(Rnd * 21)
Print a(i, j); " ";
Next j
Print
Next i
c = "每列相加的值是:" & vbCrLf
For i = 1 To 3
For j = 1 To 3
t = t + a(j, i)
Next j
c = c & t & " "
t = 0
Next i
Print c
End Sub
编写程序，建立一个 6×6的整型二维数组(数据由程序调用Rnd函数产生[0，15 )的随机
整数数)，输出数组中的最大元素。
Option Base 1
Private Sub Command1_Click() Dim a(6, 6) As Integer Randomize
Max = a(1, 1)
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 16 + 0)
If a(i, j) > Max Then
Max = a(i, j)
End If
Print a(i, j);
n = n + 1
If n Mod 6 = 0 Then
Print
3
End If
Next j
Next i
Print "最大元素为:"; Max
End Sub
编写一个函数，其参数为一个一维整型数组，其功能为求数组中所有元素的平均值。
Option Base 1
Private Sub Command1_Click() Dim a()
a() = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
Print "数组中所有元素的平均值为:" & ave(a()) End Sub
Private Function ave(a()) For i = 1 To UBound(a)
Sum = Sum + a(i)
Next i
ave = Sum / UBound(a)
End Function
5编写程序，计算并输出下面级数前n项(n=50)中偶数项的和。 s = 1*2+2*3+3*4+4*5+„„+n*(n+1)+„
Private Sub Form_Activate() s = 0
For I = 2 To 50 Step 2 s = s + I * (I + 1)
Next I
Print s
End Sub
8编写一个函数，其功能为判断某个整数是不是素数并判断100001是否是素数。
Private Sub Form_Click() Dim n, i#
n = InputBox("n=")
i = 2
While n Mod i <> 0
i = i + 1
Wend
If i = n Then
Print n & "是素数"
Else
Print n & "不是素数"
4
End If
End Sub
13定义一个下标上界为10的整型数组，并用随机函数为其赋值(值介于[0，100]之间计算
数组中所有偶数的数据的和:
Dim a%(10), i, sum%
For i = LBound(a) To UBound(a)
Randomize
a(i) = Rnd * 100
If a(i) Mod 2 = 0 Then sum = sum + a(i)
End If
Next
Print sum
31、* 编写程序:
* 打印出以下图案。
*
***
*****
*******
*****
***
* Private Sub Command1_Click()
Dim i As Integer
n = 4
For i = 1 To n
Print Tab(n - i + 1); String(2 * i - 1, "*") Next
Fo