vb 利用随机函数产生10个1~100之间的随机数,显示出最大值最小值,平均值

Question

谢谢大神们了

Answer 1

Private Sub Form_Click()
Dim a(9) As Integer, max As Integer, min As Integer, arg As Single, i As Integer
Randomize
For i = 0 To 9
   a(i) = Int(Rnd * 100) + 1
   arg = arg + a(i)
   If i = 0 Or a(i) > max Then max = a(i)
   If i = 0 Or a(i) < min Then min = a(i)
   Print a(i);
Next
Print
Print "最大值："; max
Print "最小值："; min
Print "平均值："; arg / 10
End Sub