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

    插入排序的基本操作就是将一个数据插入到已经排好序的有序数据,从而得到一个新的、个数加一的有序数据
    算法适用于少量数据的排序，时间复杂度为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 iEnd Sub