VB：选择排序

VB：选择排序

Private Sub Command1_Click()
    Dim i%
    Dim x(1 To 10) As Single
    For i = 1 To 10
        x(i) = Val(InputBox("input"))
    Next i
    Call selectSort(x)
    For i = LBound(x) To UBound(x)
        Print x(i)
    Next i
End Sub
Sub selectSort(arr!())
    Dim i%, j%, k%
    Dim n%
    n = UBound(arr)
    For i = 1 To n - 1
        k = i
        For j = i + 1 To n
            If arr(j) < arr(k) Then k = j
        Next j
        Call mySwap(arr(i), arr(k))
    Next i
End Sub
Sub mySwap(ByRef a, ByRef b)
    Dim c As Variant
    c = a
    a = b
    b = c
End Sub