Option Base 1
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, a(11) As Integer j = 1
For i = 3 To 21 Step 2
a(j) = i : Print a(j); (1) Next i Print
n = InputBox(\请输入一个数\ For i = 1 To 10
If n <= a(i) Then
For j = 10 To i Step -1 (2) Next j
a(i) = n: Exit For End If Next i
If i > 10 Then a(i) = n For i = 1 To 11 Print a(i); Next i End Sub
2. 从键盘上输入一个正整数，判别它是否为回文数。例如，13531是回文数。 Private Sub Command1_Click() Cls
Dim num As Long, n As Long, i%, k%, f%, b%(10) num = InputBox(\请输入一个整数：\ k = 0: (1) Do
b(k) = n Mod 10 k = k + 1 n = n \\ 10
Loop While n <> 0 f = 1
For i = 0 To (k - 1) / 2
If b(i) <> b(k - 1 - i) Then (2) Next i Print If f Then
Print Tab(2); num; \是回文数！\ Else
Print Tab(2); num; \不是回文数！\
End If End Sub
3. 在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Click() Dim Arr
Arr＝Array(43, 68, －25, 65, －78, 12, －79, 43, －94, 72) pos＝0 ：neg＝0 For k＝1 To 10
If Arr(k)>0 Then （1） _ Else
（2） __ End If Next k
Print pos, neg End Sub
完成以下功能：计算并输出数组Arr中10个数的正数之和pos与负数之和neg。
4. 执行下面的程序，单击窗体，在窗体上显示的第一行是（1） ，第三行是（2）。 Private Sub Form_Click()
Dim a(3, 3) As Integer, i As Integer, j As Integer For i=1 To 3 For j=1 To 3
a(i, j)=(i-1)*2+j Next J Next i
For j=1 To 3 For I=j To 3
Print a(j, i); Next i Print Next j End Sub
5. 产生10个个位数互不相同的三位随机正整数，并存放到下标与其个位数相同的数组元素中。例如，635应存到a(5)中。
Private Sub Form_Click()
Dim a(9)As Integer, X As Integer, k As Integer, i As Integer Randomize
Do While i<=9
X=Int(Rnd*900+100)
（1）
if a(k)=0 Then a(k)=X
（2） End If Loop
For i=0 To 9 Print a(i); Next i End Sub
6. 下面程序的功能是随机产生20个两位数，从中找出最大的元素和最小的元素并输出。
Option Base 1
Private Sub Command1_Click()
Dim D(20) As Integer, I As Integer Dim Max As Integer, Min As Integer Randomize For I=1 to 20
D(i)= （1） Print D(i); Next I Print
（2） For I=2 To 20
If D(i) > Max Then Max = D(i)
ElseIf D(i) < Min Then Min = D(i)
End If Next I
Print \最大数是：\Print \最小数是：\End Sub
7. 单击窗体显示Fibonacci数列前20个数值1 1 2 3 5 ?，每行显示4个。 Private Sub form_Click() Dim f(20) As Integer f(0) = 1: f(1) = 1 For i = 2 To 19
（1） Next i
For i = 0 To 19
If （2） Then Print Print f(i), Next i
End Sub
8. 输出方阵SC中的下三角元素，运行界面如图所示： Private Sub Form_click()
Dim sc(10, 10) For i = 0 To 4 For j = 0 To i
（1）
Print sc(i, j); \ Next j
(2)
Next i End Sub
9. 随机产生10个3位数，然后逆序存放并输出。
Const N = 10
Dim a(1 To N) As Integer, i As Integer, t As Integer Randomize
For i = 1 To N
a(i) = Int(Rnd * 900) + 100 Print a(i); Next i
For i = 1 To N \\ 2 t = a(i)
(1)
(2) Next i Print
For i = 1 To N Print a(i); Next i Print
10. 生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。 Private Sub Command1_Click()
Dim a%(1 To 20), i%, s% Randomize
For i = 1 To 20
a(i) =(1) If a(i) Mod 5 = 0 Then Print a(i);
(2) End If
Next i
Print \
End sub
四 编程题
1. 单击窗体从键盘输入10个整数存入下标从1开始的数组，计算并显示出值最大的数据和其在数组中的位置。样例：
2. 单击按钮产生2位随机整数存入下标从1开始二维数组a(2,3)，然后将二维数组元素的行列互换存入数组b(3,2)并输出。样例：
3. 单击按钮，从键盘输入整型数据存入下标从1开始一个二维数组A(3, 3)，按3行3列输出，然后分别求其两条对角线元素之和并输出。样例：
4. 单击窗体产生不大于100的随机整数存入下标从0开始一个四行四列二维数组arr，输出，然后找出数组中所有大于60的元素及其所在位置。样例：
5. 单击按钮1产生不大于10的随机整数存入下标从1开始一个二维数组A(4, 5)，然后单击按钮2求二维数组每列元素的和并输出。样例：