随即产生30-100（包括30和100）的10个正整数,求最大值最小值平均值并显示整个组数的值和结果

我在电脑上试过的。在窗体上加一个command按钮,程序如下：Private Sub Command1_Click() Dim A(10) As Integer,i As Integer,Max As Integer,Min As Integer,s As Integer,Ave As Integer For i = 1 To 10 A(i) = Int(((100 - 30) * Rnd) + 30) ' 生成 30 到 100 之间的随机数值。Next i Max = A(1):Min = A(1):s = A(1) For i = 2 To 10 If A(i) > Max Then Max = A(i) If A(i) < Min Then Min = A(i) s = s + A(i) Next i Ave = s / 10 Print "最大值：" & Max Print "最小值：" & Min Print "平均值：" & Ave Print "数组：" For i = 1 To 10 Print A(i); Next i Print End Su