对数组进行排序

下面是一个对数组进行排序的样例程序。

Function sort_arr(arr As Variant) As Variant
     Dim Temp As Variant, i As Long
     For i = 0 To UBound(arr)
         If i <> 0 Then
          If arr(i) < arr(i - 1) Then
              Temp = arr(i)
               arr(i) = arr(i - 1)
               arr(i - 1) = Temp
               i = i - 2             '×¢ÒâÕâÒ»¾ä
               If i < 0 Then i = 0
           End If
        End If
     Next
     '**********************************
    sort_arr = arr
End Function

调用程序：
Sub test()
    Dim ss_arr(4) As Variant
    ss_arr(0) = 123
    ss_arr(1) = 485
    ss_arr(2) = 435
    ss_arr(3) = 142
    ss_arr(4) = 21
    Dim result() As Variant
    result = sort_arr(ss_arr)
End Sub