VB 关于选择排序算法

来源：百度知道 编辑：UC知道 时间：2024/06/22 02:45:19
怎样输出每一次排序后的结果.
如5 7 8 2 3
第一次排序后：2 7 8 5 3
第二次排序后: 2 3 8 5 7
...

望大家指点一下.谢谢.

'在窗体上增加控件command1,label1，然后复制以下代码

Option Explicit
Dim a(9) As Long
Private Sub Command1_Click()
Dim i As Long, l As Long, n As Long
Dim j As Long, s As String
For i = 0 To 9 '使用选择排序法排序，每次选择最小的数值。
For l = i To 9
If a(i) > a(l) Then
n = a(i)
a(i) = a(l)
a(l) = n
End If
Next l
Print a(i)
s = ""
For j = 0 To 9
s = s & a(j) & vbNewLine
Next
MsgBox s, vbInformation, "阶段排序情况"
Next i
End Sub
Private Sub Form_Load()
a(0) = 564 '给数组a中个数组元素赋值。
a(1) = 78
a(2) = 45
a(3) = 456412
a(4) = 456
a(5) = 1
a(6) = 45 + 79
a(7) = 12
a(8) = 1 * 966
a(9) = 65 / 5