VBA排序的10种方法之选择排序

2015-04-13 13:33 阅读 107 次 评论关闭

VBA排序的10种方法之选择排序

Public Sub SelectionSort(ByRef lngArray() As Long)
Dim iOuter As Long
Dim iInner As Long
Dim iLBound As Long
Dim iUBound As Long
Dim iTemp As Long
Dim iMax As Long

iLBound = LBound(lngArray)
iUBound = UBound(lngArray)

'选择排序
For iOuter = iUBound To iLBound + 1 Step -1

iMax = 0

'得到最大值得索引
For iInner = iLBound To iOuter
If lngArray(iInner) > lngArray(iMax) Then iMax = iInner
Next iInner

'值交换
iTemp = lngArray(iMax)
lngArray(iMax) = lngArray(iOuter)
lngArray(iOuter) = iTemp

Next iOuter
End Sub

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:VBA排序的10种方法之选择排序 | 猎微网
分类:VBA 标签:, ,

评论已关闭!