对VBS中的数字数组进行排序

Dim arr(5)
arr(0) = 5
arr(1) = 2
arr(2) = 8
arr(3) = 1
arr(4) = 4

For i = 0 To UBound(arr) - 1
    For j = 0 To UBound(arr) - i - 1
        If arr(j) > arr(j + 1) Then
            temp = arr(j)
            arr(j) = arr(j + 1)
            arr(j + 1) = temp
        End If
    Next
Next

For Each num In arr
    MsgBox num
Next

Dim arr(5)
arr(0) = 5
arr(1) = 2
arr(2) = 8
arr(3) = 1
arr(4) = 4

For i = 0 To UBound(arr) - 1
    minIndex = i
    For j = i + 1 To UBound(arr)
        If arr(j) < arr(minIndex) Then
            minIndex = j
        End If
    Next
    If minIndex <> i Then
        temp = arr(i)
        arr(i) = arr(minIndex)
        arr(minIndex) = temp
    End If
Next

For Each num In arr
    MsgBox num
Next

Dim arr(5)
arr(0) = 5
arr(1) = 2
arr(2) = 8
arr(3) = 1
arr(4) = 4

For i = 1 To UBound(arr)
    key = arr(i)
    j = i - 1
    While j >= 0 And arr(j) > key
        arr(j + 1) = arr(j)
        j = j - 1
    Wend
    arr(j + 1) = key
Next

For Each num In arr
    MsgBox num
Next