选择排序法

Private Sub Command1_Click()
Cls

Dim a(10) As Integer
Dim i As Integer
Dim j As Integer
For i = 1 To 10
a(i) = Int(Rnd * 100)
Print a(i);
Next i
Print
For i = 1 To 9

    For j = i + 1 To 10
        If a(j) > a(i) Then
        swap a(i), a(j)
        End If
    Next j
 Next i
 For i = 1 To 10
 Print a(i);
 Next i
 End Sub
Private Sub swap(a As Integer, b As Integer)
Dim t As Integer
t = a
a = b
b = t

选择排序法 是 第一个数 依次与 后面的九个数 比较大小。 依次类推  第二个数 与 后面的八个数比较大小， 直到第九个数与第十个数比较。 是九个循环