visual bisic 中做一个题目：给定3个数，按大小顺序输出。的程序代码是什么？

随即产生3个0~100的数,并按从小到大排序,已经验证OK!!!

Private Sub Command1_Click()
Dim num(1 To 3) As Integer
Dim i, j, t As Integer
For i = 1 To 3
num(i) = Int((100 - 0 + 1) * Rnd + 0)
Next
For i = 1 To 3
For j = i + 1 To 10
If num(i) > num(j) Then
t = num(i)
num(i) = num(j)
num(j) = t
End If
Next j
Next i
For i = 1 To 3
Print num(i)
Next
End Sub

自己看吧。。。