選擇排序法
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer, a(1 To 10) As Integer
Print "原始數(shù)據(jù)如下"
For i = 1 To 10
a(i) = Int(Rnd * 10)
Print a(i);
Next i
Print "按從小到大排列輸出："
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
For i = 1 To 10
Print a(i);
Next
End Sub
通用過程
Public Sub swap_1()
Print "按從小到大排列輸出："
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next j
Next i
For i = 1 To 10
Print a(i);
End Sub