下面是一个对数组进行排序的样例程序。
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