您的當(dāng)前位置：首頁(yè)更正確的asp冒泡排序_javascript技巧

更正確的asp冒泡排序_javascript技巧

來(lái)源：九壹網(wǎng)

網(wǎng)上搜到的代碼，千篇一律是這個(gè)
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

存在錯(cuò)誤。。。

測(cè)試一下就知道

s="11,3,1"
s=sort(split(s,","))
for i=0 to ubound(s)
response.write s(i) & "
"
next

打印結(jié)果是

正確的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

就差在一個(gè)clng()

但好笑的是，有些數(shù)組，用那個(gè)錯(cuò)誤的sort函數(shù)是可以排正確的。

違法及侵權(quán)請(qǐng)聯(lián)系：TEL:199 1889 7713 E-MAIL:2724546146@qq.com

本站由北京市萬(wàn)商天勤律師事務(wù)所王興未律師提供法律服務(wù)

成熟丰满熟妇高潮XXXXX,人妻无码AV中文系列久久兔费 ,国产精品一国产精品,国精品午夜福利视频不卡麻豆

更正確的asp冒泡排序_javascript技巧