時(shí)間：2015/6/28來(lái)源：IT貓撲網(wǎng)作者：網(wǎng)管聯(lián)盟我要評(píng)論(0)
網(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) & <br>
next
打印結(jié)果是
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
就差在一個(gè)clng()
但好笑的是，有些數(shù)組，用那個(gè)錯(cuò)誤的sort函數(shù)是可以排正確的。
關(guān)鍵詞標(biāo)簽：排序,正確,ary,KeepCh
相關(guān)閱讀 正確刪除系統(tǒng)中文件名亂碼的文件JS驗(yàn)證日期格式是否正確oracle中對(duì)排序的總結(jié)正確認(rèn)識(shí)MySQL對(duì)服務(wù)器端光標(biāo)的限制如何正確的解決 MySQL中忽略用戶(hù)的現(xiàn)象如何正確編寫(xiě)高質(zhì)量高性能的MySQL語(yǔ)法
熱門(mén)文章
Active Server Pages 錯(cuò)誤 'ASP 0131'解決方
Android實(shí)現(xiàn)ListView的A-Z字母排序和過(guò)濾搜索功能時(shí)間：06-30
寶寶巴士寶寶學(xué)排序時(shí)間：12-30
寶寶巴士排序歷險(xiǎn)記破解版時(shí)間：11-05
考試小抄錄入排序器時(shí)間：01-08
Glary Utilities Pro時(shí)間：03-03
Glary Utilities Pro激活碼破解版時(shí)間：03-16
人氣排行 ASP下標(biāo)越界的解決方法ASP代碼中如何屏蔽ip地址 禁止某IP段訪問(wèn)網(wǎng)站“文件共享鎖定數(shù)溢出” 原因及解決方法無(wú)法寫(xiě)入數(shù)據(jù)庫(kù)的解決方法如何用ASP來(lái)獲取客戶(hù)端真實(shí)IP的地址用Asp編程實(shí)現(xiàn)QQ的在線情況查詢(xún)ASP常用函數(shù)列表ASP用FSO生成HTML簡(jiǎn)單實(shí)例+詳解[原創(chuàng)]