用VB编写的选择排序源代码

以下是使用Visual Basic编写的选择排序源代码:

Sub SelectionSort(arr() As Integer)
    Dim i As Integer, j As Integer, minIndex As Integer, temp As Integer
    For i = 0 To UBound(arr) - 1
        minIndex = i
        For j = i + 1 To UBound(arr)
            If arr(j) < arr xss=removed> i Then
            temp = arr(i)
            arr(i) = arr(minIndex)
            arr(minIndex) = temp
        End If
    Next i
End Sub
rar 文件大小:2.73KB