Private Sub Form_Load()
Dim a(10) As Single
Dim i, j As Single
For i = 0 To 9 '产生10个随机数
j = 0
Do Until j < 100 And j Mod 2 = 1
Randomize
j = Int(Rnd * 100) + 10
Loop
a(i) = j
Next i
Label1.Caption = "这10个数为："
For i = 0 To 9
Label1.Caption = Label1.Caption & a(i) & " "
Next i
j = a(0) '求最大数
For i = 1 To 9
j = IIf(j > a(i), j, a(i))
Next i
Label2.Caption = "最大数为：" & j
j = a(0) '求最小数
For i = 1 To 9
j = IIf(j < a(i), j, a(i))
Next i
Label3.Caption = "最小数为：" & j
j = 0 '求平均值
For i = 0 To 9
j = j + a(i)
Next i
j = j / 10
Label4.Caption = "平均值为：" & j
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024