asp冒泡排序的正確修改方式

如何修改正確的asp冒泡排序？很多朋友們都被這個問題困擾過吧，那麼我們現在就去看看asp冒泡排序的正確修改方式，還不了解的朋友們一起參考參考吧。

網上搜到的代碼，千篇一律是這個

Function Sort(ary)

Dim KeepChecking,I,FirstValue,SecondValue

KeepChecking = TRUE

Do Until KeepChecking = FALSE

KeepChecking = FALSE

For I = 0 to UBound(ary)

If I = UBound(ary) Then Exit For

If ary(I) > ary(I+1) Then

FirstValue = ary(I)

SecondValue = ary(I+1)

ary(I) = SecondValue

ary(I+1) = FirstValue

KeepChecking = TRUE

End If

Next

Loop

Sort = ary

End Function

存在錯誤。 。 。 。 。 。

測試一下就知道

s="11,3,1"

s=sort(split(s,","))

for i=0 to ubound(s)

response.write s(i) & "<br>"

next

打印結果是

1

11

3

正確的function是:

function sort(ary)

ck=true

do Until ck = false

ck=false

For f = 0 to UBound(ary) -1

if clng(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

end if

next

loop

sort=ary

end function

就差在一個clng()

以上就是asp冒泡排序的正確修改方式，但好笑的是，有些數組，用那個錯誤的sort函數是可以排正確的。