vb编程....高手来哦

Private Sub Command1_Click()
Dim i%, j%, s(1 To 3), t%

Randomize
For i = 1 To 3
s(i) = Int(Rnd * 100 + 1)
Next

Print "随机出来的3个数为: "; Join(s)

For i = 1 To 3
For j = i + 1 To 3
If s(j) < s(i) Then
t = s(i)
s(i) = s(j)
s(j) = t
End If
Next
Next

Print "排序完成后的3个数为: "; Join(s)
End Sub