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

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

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

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

'比较插入数字和挪位一起进行,无需二分法
Sub InsertSortN(LngArr() As Long, _
        Optional LB As Long, Optional UB As Long = -9, Optional Descending As Long)
    Dim i As Long, j As Long, k As Long
    Dim Tmp As Long, Ltmp As Long
    
    If UB = -9 Then UB = UBound(LngArr):   LB = LBound(LngArr)

    For i = 1 To UB
        Tmp = LngArr(i):
        For j = i - 1 To 0 Step -1                           '     比较插入数字和挪位一起进行
            If (Descending = 0 And Tmp >= LngArr(j)) Or (Descending = 1 And Tmp <= LngArr(j)) Then Exit For
            LngArr(j + 1) = LngArr(j):
        Next j
        LngArr(j + 1) = Tmp:
    Next i
End Sub