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
原文地址:https://www.jb51.cc/vb/257701.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。