VB 关于选择排序算法

Question

怎样输出每一次排序后的结果.
如5 7 8 2 3
第一次排序后：2 7 8 5 3
第二次排序后: 2 3 8 5 7
...

望大家指点一下.谢谢.

Answer 1

Private Sub Form_Click()
arr = Array(5, 7, 8, 2, 3)
For i = 0 To 3
k = i
For j = i + 1 To 4
If arr(k) > arr(j) Then k = j
Next j
If k <> i Then t = arr(k): arr(k) = arr(i): arr(i) = t
For j = 0 To 4
Print arr(j);
Next j
Print
Next i
End Sub