青春与成就 是人生的两大财富 /
当你享受青春时 你必须要吃点苦 /
当你失去青春时 成就会成为你的拥有 /
否则 青春之后就一无所有
转:VBS的快速排序
上一篇 /
下一篇 2008-07-08 16:15:16
/ 个人分类:VBS
转自:http://www.51testing.com/?141956/action_viewspace_itemid_84696.html
下面是VBS的快速排序代码,适合数字和字符串数组:
Public Function QSort(ByRef ReArr, ByVal head,ByVall tail)
ReArr是待排序数组,head和tail是该数组的最小下标和最大下标
Dim lef,rig
Dim pivot
If head<tail,Then
lef=head
rig=tail
pivot=ReArr(lef)
While (lef<>rig)
While (lef<rig and ReArr(rig)>=pivot)
rig=rig-1
Wend
If lef<rig Then
ReArr(lef)=ReArr(rig)
lef=lef+1
End If
While (lef<rig and ReArr(lef)<=pivot)
lef=lef+1
Wend
If lef<rig Then
ReArr(rig)=ReArr(lef)
rig=rig-1
End If
Wend
ReArr(lef)=pivot
call QSort(ReArr,head,lef-1)
call QSort(ReArr,lef+1,tail)
End If
End Function
收藏
举报
TAG:
VBS