vb编程：随机产生10个两位随机奇数，求其中的最大值、最小值和平均值

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