对数组进行排序
发布时间：2020-12-16 22:16:37 所属栏目：大数据 来源：网络整理
导读：下面是一个对数组进行排序的样例程序。 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 '×
|
下面是一个对数组进行排序的样例程序。 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 '×￠òa?aò??? 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 （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |