excel vba排序算法（vba排序算法 excel）.docVIP

excel vba排序算法（vba排序算法 excel） vba排序算法 excel 2007 - 07 - 11: 30 14排序算法常用的有七种, 分别是冒泡排序, 选择排序, 希尔排序, 堆排序, 桶排序, 插入排序和快速排序. 以下是所有七种排序算法的源码, 具体用法可参见源程序. option explicit public = 0 is zero enum eordertype _ ascending order = 0 descending _ order = 1 end enum 用于指明重复次数的全局变量 public giterations 冒泡排序 under bubblesort (myarray (), byval norder i eordertype) dim index dim temp dim nextelement 先将已处理的元素个数置为0 nextelement = zero 遍历每一个元素 do while (nextelement ubound (myarray)) 读取当前最大下标 index = ubound (myarray) 与前面的每一个元素比较 do while (index nextelement) 根据是升序或降序进行分别处理 if norder = ascending _ order then 升序: 如果当前值小于上一个值, 则互换 if myarray (index) myarray (index 1). temp = myarray (index) myarray (index) = myarray (index 1) myarray (index 1) = temp end if elseif norder = descending _ order then 降序: 如果当前值大于上一个值, 则互换 if myarray (index) myarray (index 1). temp = myarray (index) myarray (index) = myarray (index 1) myarray (index 1) = temp end if end if 将当前下标移到上一个值 index - index = 1 用于指明重复次数的全局变量 giterations = giterations + 1 loop 将已处理的元素个数加1 nextelement = nextelement + 1 用于指明重复次数的全局变量 giterations = giterations + 1 loop end sub 桶排序 under the bucket (myarray (), byval norder i eordertype) dim index dim nextelement dim thebucket 先将已处理的元素个数为最小下标加1 nextelement = lbound (myarray) + 1 遍历每一个元素 while (nextelement = ubound (myarray)) 读取当前元素 thebucket = myarray (nextelement) 读取当前下标 index = nextelement do 如果当前下标大于最小下标, 则处理 if index lbound (myarray) then 根据是升序或降序进行分别处理 if norder = ascending _ order then 升序: 如果当前值小于上一个值 则将下一个值放到当前值 (当前值在thebucket中不动) if thebucket myarray (index 1). myarray (index) = myarray (index 1) index - index = 1 else exit do end if elseif norder = descending _ order then 降序: 如果当前值大于上一个值 则将下一个值放到当前值 (当前值在thebucket中不动) if thebucket myarray (index 1). myarray (index) = myarray (index 1) index - index = 1 else exit do end if end if else exit do end if 用于指明重复次数的全局变量 giterations = giterations + 1 loop myarray (index) = thebucket nextelement = nextelement + 1 用于指明重复次数的全局变量 giterations = g