VBA排序的十种算法【DOC精选】.docVIP

在使用VBA进行写程序时，经常会做排序，下面将会给出一些常用的排序算法的实现，方便大家写程序参考，若代码中出现了错误，欢迎高手指正。主要算法有：1、（冒泡排序）Bubble sort2、（选择排序）Selection sort3、（插入排序）Insertion sort4、（快速排序）Quick sort5、（合并排序）Merge sort6、（堆排序）Heap sort7、（组合排序）Comb Sort8、（希尔排序）Shell Sort9、（基数排序）Radix Sort10、Shaker Sort 第一种 （冒泡排序）Bubble sort Public Sub BubbleSort(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 To iUBound - 1 For iInner = iLBound To iUBound - iOuter - 1 比较相邻项 If lngArray(iInner) lngArray(iInner + 1) Then 交换值 iTemp = lngArray(iInner) lngArray(iInner) = lngArray(iInner + 1) lngArray(iInner + 1) = iTemp End If Next iInner Next iOuter End Sub 2、（选择排序）Selection sort Public Sub SelectionSort(ByRef lngArray() As Long) Dim iOuter As Long Dim iInner As Long Dim iLBound As Long Dim iUBound As Long Dim iTemp As Long Dim iMax As Long iLBound = LBound(lngArray) iUBound = UBound(lngArray) 选择排序 For iOuter = iUBound To iLBound + 1 Step -1 iMax = 0 得到最大值得索引 For iInner = iLBound To iOuter If lngArray(iInner) lngArray(iMax) Then iMax = iInner Next iInner 值交换 iTemp = lngArray(iMax) lngArray(iMax) = lngArray(iOuter) lngArray(iOuter) = iTemp Next iOuter End Sub 复制代码 第三种 （插入排序）Insertion sort 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 复制代码 第四种 （快速排序）Quick sort Public S