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

假定数组A(1 TO 10)包含10个数：
for I=1 to 9
for J=1 to 10-I
if A(J)>A(J+1) THEN
TR=A(J)
A(J)=A(J+1)
A(J+1)=TR
END IF
NEXT J
NEXT I<