在VB编程中如果输入10个数字，然后从小到大排联输出？本人继续答案

Private Sub Form_Load()
''这是用VB给你一个冒泡最简单的例子，从大到小排
Dim A(10) As Integer
Dim i, j, n, t As Integer
n = 10
Randomize
Debug.Print "初始的数组A"
For i = 1 To n
A(i) = Int(Rnd() * 5000)
Debug.Print A(i)
Next i
''''排序开始
For i = 1 To n - 1
For j = n To i + 1 Step -1
If A(j) > A(j - 1) Then'''判断a(j)与a(j-1)谁大，把大的放到前边
t = A(j)
A(j) = A(j - 1)
A(j - 1) = t
End If
Next j
Next i
''''排序结束
Debug.Print "有序的数组A"
For i = 1 To n
Debug.Print A(i)
Next i
''如果要从小到大排就把"A(j) > A(j - 1)"改称"A(j) < A(j - 1)"
End Sub

Private Sub Command1_Click()
Dim i%, j%, n(1 To 10), m%

For i = 1 To 10
n(i) = Val(InputBox("请输入第" & i & "个数字吧!!"))
Next

Print "排序前:"; Join(n)

For i = 1