有哪些信誉好的足球投注网站- 1、本文档共22页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
在使用 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. 值交换
文档评论（0）