第1个回答 2013-05-08
Private Sub Command1_Click()
Dim n(1 To 10), max, min, i As Integer
Dim q, w, s As Integer
s = 0
For i = 1 To 10
Randomize
n(i) = Int(Rnd * 90 + 10)
Print n(i)
Next i
max = n(1)
min = n(1)
For i = 1 To 10
If n(i) > max Then
max = n(i)
q = i
End If
If n(i) < min Then
min = n(i)
w = i
End If
s = s + n(i)
Next i
Print "最大为第" & q & "位,为:" & max; " 最小为第" & w & "位,为:" & min
Print "平均数为:"; s / 10
End Sub