VBA排序的十种算法.pdfVIP

在使用 VBA进行写程序时，经常会做排序，下面将会给出一些常用的排序 算法的实现， 方便大家写程序参考， 若代码中出现了错误， 欢迎高手指正。 主 要 算 法 有 ： 1 、 （ 冒 泡 排 序 ） B u b b l e s o r t 2 、 （ 选 择 排 序 ） S e l e c t i o n s o r t 3 、 （ 插 入 排 序 ） I n s e r t i o n s o r t 4 、 （ 快 速 排 序 ） Q u i c k s o r t 5 、 （ 合 并 排 序 ） M e r g e s o r t 6 、 （ 堆 排 序 ） H e a p s o r t 7 、 （ 组 合 排 序 ） C o m b S o r t 8 、 （ 希 尔 排 序 ） S h e l l S o r t 9 、 （ 基 数 排 序 ） R a d i x S o r t 1 0 、 S h a k e r S o r t 第一种（冒泡排序） Bubblesort PublicSubBubbleSort(ByReflngArray()AsLong) DimiOuterAsLong DimiInnerAsLong DimiLBoundAsLong DimiUBoundAsLong DimiTempAsLong iLBound=LBound(lngArray) iUBound=UBound(lngArray) 冒泡排序 ForiOuter=iLBoundToiUBound-1 ForiInner=iLBoundToiUBound-iOuter-1 比较相邻项 IflngArray(iInner)lngArray(iInner+1)Then 交换值 iTemp=lngArray(iInner) lngArray(iInner)=lngArray(iInner+1) lngArray(iInner+1)=iTemp EndIf NextiInner NextiOuter EndSub 2、（选择排序） Selectionsort 1. PublicSubSelectionSort(ByReflngArray()AsLong) 2. DimiOuterAsLong 3. DimiInnerAsLong 4. DimiLBoundAsLong 5. DimiUBoundAsLong 6. DimiTempAsLong 7. DimiMaxAsLong 8. iLBound=LBound(lngArray) 9. iUBound=UBound(lngArray) 10. 选择排序 11. ForiOuter=iUBoundToiLBound+1Step-1 12. iMax=0 13. 得到最大值得索引 14. ForiInner=iLBoundToiOuter 15. IflngArray(iInner)lngArray(iMax)TheniMax=iInner 16. NextiInner 17. 值交换