VB题目一道

1.随机产生10个30～100的正整数，求最大值、最小值和平均值。
2.调换上述数组中的元素。1=10 2=9 3=8 4=7 5=6

补充：第一个和第十个互换 ........ 
Private Sub Command1_Click()
Dim a(30) As Integer
Dim Max, Min, Sum As Integer
Randomize
Max = 30
Min = 100
Sum = 0
For i = 1 To 10
a(i) = Int(71 * Rnd) + 30
Print a(i) & " ";
If a(i) > Max Then Max = a(i)
If a(i) < Min Then Min = a(i)
Sum = Sum + a(i)
Next i
Print
Print "Max is " & Max
Print "Min is " & Min
Print "Average is " & Sum / 10

End Sub 

  第一题已经做出来了 只要做第二题

答案：第二题：
For i = 1 To 5
 S = a(i): a(i) = a(10 - i + 1): a(10 - i + 1) = S
Next

上一个：请问： 对于一个7*7的矩阵，求其两个对角线中能被3整除的数的个数，以下两段代码为什么会有不同的结果？
下一个：我VB属性窗口怎么没有stretch选项？而考试题的答案里有这个选项。帮帮我吧！谢谢了！