修改正确的asp冒泡排序
摘要：网上搜到的代码，千篇一律是这个FunctionSort(ary)DimKeepChecking,I,FirstValue,SecondVal...
网上搜到的代码，千篇一律是这个
FunctionSort(ary)
DimKeepChecking,I,FirstValue,SecondValue
KeepChecking=TRUE
DoUntilKeepChecking=FALSE
KeepChecking=FALSE
ForI=0toUBound(ary)
IfI=UBound(ary)ThenExitFor
Ifary(I)>ary(I+1)Then
FirstValue=ary(I)
SecondValue=ary(I+1)
ary(I)=SecondValue
ary(I+1)=FirstValue
KeepChecking=TRUE
EndIf
Next
Loop
Sort=ary
EndFunction
存在错误。。。。。。
测试一下就知道
s="11,3,1"
s=sort(split(s,","))
fori=0toubound(s)
response.writes(i)&"<br>"
next
打印结果是
1
11
3
正确的function是:
functionsort(ary)
ck=true
doUntilck=false
ck=false
Forf=0toUBound(ary)-1
ifclng(ary(f))>clng(ary(f+1))then
v1=clng(ary(f))
v2=clng(ary(f+1))
ary(f)=v2
ary(f+1)=v1
ck=true
endif
next
loop
sort=ary
endfunction
就差在一个clng()
但好笑的是，有些数组，用那个错误的sort函数是可以排正确的。
【修改正确的asp冒泡排序】相关文章：
★ ASP类的写法
上一篇：
asp 的中文分词
下一篇：
rustysun同学ASP代码书写规范