80分VB问题呀呀,,,高手指点一下拉

Dim i As Integer
Dim digit As Integer ' 最大随机数
Dim arr(9) As Integer

digit = 100
For i = 0 To 9
Randomize Timer
arr(i) = Fix(Rnd * digit)
Next

Dim lower As Integer
Dim higer As Integer
Dim sums As Integer

lower = 100
higer = 0

For i = 0 To 9
Dim j As Integer
j = arr(i)
List1.AddItem (arr(i))
If j < lower Then lower = j
If j > higer Then higer = j
sums = sums + j
Next

Text1.Text = lower
Text2.Text = higer
Text3.Text = (sums - lower - higer) / 8

Private Sub Form_Load()
Dim Num(8) As Integer
Dim Min As Integer
Dim Max As Integer
Dim sum As Double

Randomize '随机数种子
For i = 0 To 7
Num(i) = Rnd '产生随机数
Next i

Min = Num(0)'初始化
Max = Num(0)

For i = 0 To 7
If Min > Num(i) Then
Min = Num(i)’遍历数组找出最小
n =