关于vb随机数

Private Sub Command1_Click()
Randomize
Dim sum As Integer, a(10) As Integer, Mas As Integer, Min As Integer
Min = 100
For i = 1 To 10
a(i) = Int(Rnd * (90) + 10)
sum = sum + a(i)
label4.caption=label4.caption & " " & a(i)
If Max < a(i) Then Max = a(i)
If Min > a(i) Then Min = a(i)
Next i
label3.caption="平均值：" & sum / 10
label1.caption="最大值：" & Max
label2.caption="最小值：" & Min
End Sub

Dim allNumber As String '如果你要累计这十个数，你得把这个定义到类中做类的全局变量
'窗体程序中放到类中
'控制台程序中放到main()外面
Dim iArray(10) As Integer
Dim i As Integer
Dim itmp As Integer
Dim iIndex As Integer

Dim iMax As Integer
Dim iMin As Integer
Dim fAverage As Double

i = 1
fAverage = 0
iMin = iMax = 0
allNumber = ""
Do
Randomize()
itmp = Int(90 * Rnd() + 10)
For iIndex = 1 To