设计程序,用数组保存随机产生的5个处于[20,50]之间的整数,求其中的最大值,最小值和平均值

Question

如题所述

Answer 1

Private Sub Command1_Click()
Dim a(5)
Randomize
For i = 1 To 5
a(i) = Int(Rnd * 31) + 20
Next i

Max = a(1): Min = a(1): Sum = 0
For i = 1 To 5
If Max < a(i) Then Max = a(i)
If Min > a(i) Then Min = a(i)
Sum = Sum + a(i)
Next i

Print "最大值："; Max
Print "最小值："; Min
Print "平均值："; Sum / 5
End Sub