插入排序的优化，比较插入同步进行

    插入排序的基本操作就是将一个数据插入到已经排好序的有序数据,从而得到一个新的、个数加一的有序数据
    算法适用于少量数据的排序，时间复杂度为O(n^2)。是稳定的排序方法。 

    网上找到的程序多是先比较找到插入的位置，再移动位置。还有文章说将查找位置的过程用二分法进行优化，其实根本没用，可以将比较插入同步进行，比较查找的同时移动位置，效率高得多。

   经测试，5000个随机数，本法比传统方法快3倍，难以置信。

 1 Sub InsertSortN(LngArr() As Long, _
 2         Optional LB As Long, Optional UB As Long = -9, Optional Descending As Long)
 3     Dim i As Long, j As Long, k As Long
 4     Dim Tmp As Long, Ltmp As Long
 5     
 6     If UB = -9 Then UB = UBound(LngArr):   LB = LBound(LngArr)
 7 
 8     For i = 1 To UB
 9         Tmp = LngArr(i):
10         For j = i - 1 To 0 Step -1                           '     比较插入数字和挪位一起进行
11             If (Descending = 0 And Tmp >= LngArr(j)) Or (Descending = 1 And Tmp <= LngArr(j)) Then Exit For
12             LngArr(j + 1) = LngArr(j):
13         Next j
14         LngArr(j + 1) = Tmp:
15     Next i
16 End Sub

 

posted @ 2015-10-29 12:22  whchensir  阅读(278)  评论(0)  编辑  收藏  举报