vb的数据问题~~~随机给出5个数字并排序

Private Sub Command1_Click()
Randomize
Dim a(4), m, n, x
For n = 0 To 4
a(n) = Int(Rnd * 100 + 1)
Next
For n = 0 To 4
For m = 0 To 4
If a(m) > a(n) Then
x = a(m)
a(m) = a(n)
a(n) = x
End If
Next
Next
For n = 0 To 4
Print a(n) ；
Next
End Sub
结果是从小到大输出。。。