VB排序算法源码,支持倒序顺序字符排序数字排序

Function 数字数组排序(Sz)
Dim KeepChecking As Boolean
Dim I As Long
Dim FirstValue
Dim SecondValue
Dim Ub As Long
Dim Ub2 As Long
KeepChecking = True
Ub = UBound(Sz)
Ub2 = Ub - 1
While KeepChecking
    KeepChecking = False
    For I = 0 To Ub2
        If Sz(I) > Sz(I + 1) Then
                FirstValue = Sz(I)
                SecondValue = Sz(I + 1)
                Sz(I) = SecondValue
                Sz(I + 1) = FirstValue
                KeepChecking = True
        End If
    Next
Wend
数字数组排序 = Sz
End Function

 

Logo

北京人形旗下天工造物具身智能开源社区,聚焦具身天工与慧思开物两大平台

更多推荐