有哪些信誉好的足球投注网站- 1、本文档共4页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
Su单列自动排序()
a为需要排序的数组，up为True则为升序排列，为False，则为降序排列。
DimupAsBoolean
DimranktypeAsString
DimiAsInteger,jAsInteger
DimtempAsDouble,temp1AsInteger
Dima(1000,3)AsDoublea数组定义大小要超过排序数，此处是按排序数在1000个以
内定义
*********************
colnum=1排序数据列
rankcolnum=2排序码列
startrow=5排序数据起始行号
endrow=135排序数据末尾行号
ranktype=降序排序方式，“升序”或“降序”
Ifranktype=升序Then
up=True
Else
up=False
EndIf
Fori=1Toendrow-startrow+1
a(i,0)=Val(ActiveSheet.Cells(startrow+i-1,colnum))
a(i,1)=startrow+i-1
a(i,2)=0
Next
*********************
Fori=1Toendrow-startrow进行n-1轮比较
Forj=endrow-startrow+1Toi+1Step-1从n到i个元素两两进行比较
IfupThen判断升降序
Ifa(j,0)a(j-1,0)Then
temp=a(j,0)
temp1=a(j,1)
a(j,0)=a(j-1,0)
a(j,1)=a(j-1,1)
a(j-1,0)=temp
a(j-1,1)=temp1
EndIf
Else
Ifa(j,0)a(j-1,0)Then
temp=a(j,0)
temp1=a(j,1)
1/4
a(j,0)=a(j-1,0)
a(j,1)=a(j-1,1)
a(j-1,0)=temp
a(j-1,1)=temp1
EndI
EndI
Nextj
Nexti
Fori=1Toendrow-startrow+1
a(i,2)=i
Next
Fori=2Toendrow-startrow+1
Ifa(i,0)=a(i-1,0)Then
a(i,2)=a(i-1,2)
EndI
Next
Fori=1Toendrow-startrow+1
ActiveSheet.Cells(a(i,1),rankcolnum)=a(i,2)
Next
EndSub
数据自动排序(单列间隔)
Sub自动排序1()a为需要排序的数组，up为True则为升序排列，为False，则为降序
排列。
DimupAsBoolean
up=False
DimiAsInteger,jAsInteger
DimtempAsDouble,temp1AsInteger
Forcolnum=1To99为需要排序的数据列数
Dima(100,3)AsDouble
*********************
startrow=3排序数据起始行号
文档评论（0）