VB求助各位大哥哥大姐姐,产生10个三位数，求出其最大值和最小值的代码～

Private Sub Command1_Click()
Dim a(1 To 10) As Integer
For i = 1 To 10
Randomize '产生第1个
n = Int((899) * Rnd) + 100
a(i) = n
Print a(i)
Next i
For i = 1 To 9 '排序
For j = 10 To i + 1 Step -1
If a(j) < a(j - 1) Then
t = a(j)
a(j) = a(j - 1)
a(j - 1) = t
End If
Next j
Next i
Print
Print "最小值是:" & a(1)
Print "最大值是:" & a(10)
Print
End Sub

Private Sub Form_Load()
Dim a(0 To 9) As Long, min As Long, max As Long
Randomize
For i = 0 To 9
a(i) = Rnd * 65535
Debug.Print "a(" & i & "): "; a(i)
Next
max = a(0)
min = a(0)
For i = 1 To 9
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next
Debug.Print "最大值: "; max
Debug.Print "最小值: "