VBA排序的10种方法之插入排序

2015-04-13 13:34 阅读 104 次 评论关闭

VBA排序的10种方法之插入排序

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

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

For iOuter = iLBound + 1 To iUBound

'取得插入值
iTemp = lngArray(iOuter)

'移动已经排序的值
For iInner = iOuter - 1 To iLBound Step -1
If lngArray(iInner) <= iTemp Then Exit For
lngArray(iInner + 1) = lngArray(iInner)
Next iInner

'插入值
lngArray(iInner + 1) = iTemp
Next iOuter
End Sub

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

评论已关闭!