高分求VB编程问题

Private Sub Command1_Click()
Dim a(9), min, max, i, sum As Integer
Randomize (Timer)
max = 0: min = 100
For i = 0 To 9
a(i) = Int(Rnd() * 100) + 1
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
sum = sum + a(i)
Print a(i);
Next
Print vbCrLf & "最大数是" & max
Print "最小数是" & min
Print "平均数是" & (sum - max - min) / 8
End Sub

Private Sub Command1_Click()
Dim x(9), y, temp As Long
Dim z As String

For i = 0 To 9
x(i) = Rnd() * 100
Next i

For i = 0 To 9
For j = 0 To 9
If x(i) > x(j) Then
temp = x(j)
x(j) = x(i)
x(i) = temp
End If
Next j
Next i

For i = 0 To 9
z = z & CStr(x(i)) & vbCrLf
Next i

For i = 1 To 8
y = y + x(i)
Next i

MsgBox "十个数分别为：" & vbCrLf & z & "去掉最大及最小数后的平均数为：" & y / 8
End Sub

Priv