時(shí)間：2015-06-28 00:00:00 來源：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) &
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)閱讀 JS驗(yàn)證日期格式是否正確 正確刪除系統(tǒng)中文件名亂碼的文件 如何正確理解PHP程序錯(cuò)誤信息的表示含義 如何正確編寫高質(zhì)量高性能的MySQL語法 如何正確的解決 MySQL中忽略用戶的現(xiàn)象 正確認(rèn)識(shí)MySQL對(duì)服務(wù)器端光標(biāo)的限制
熱門文章
ASP編程代碼：隱藏圖片的真實(shí)地址
ASP教程:0177:800401f3錯(cuò)誤解決
ASP代碼中如何屏蔽ip地址 禁止某IP段訪問網(wǎng)站
錯(cuò)誤80004005信息處理方法
寶寶巴士排序歷險(xiǎn)記破解版時(shí)間：2024-04-17 15:53:23
寶寶巴士寶寶學(xué)排序時(shí)間：2023-12-24 12:36:41
系統(tǒng)維護(hù)工具Glary Utilities Pro激活碼版時(shí)間：2022-07-07 08:59:14
Glary Utilities中文安裝版(全能系統(tǒng)維護(hù)軍刀)時(shí)間：2022-03-15 16:38:36
Glary Utilities Pro時(shí)間：2022-03-03 17:40:48
EDiary電子日記本時(shí)間：2020-05-16 14:28:49
人氣排行 ASP下標(biāo)越界的解決方法 ASP代碼中如何屏蔽ip地址 禁止某IP段訪問網(wǎng)站 “文件共享鎖定數(shù)溢出” 原因及解決方法 無法寫入數(shù)據(jù)庫的解決方法 ASP教程:0177:800401f3錯(cuò)誤解決 ASP常用函數(shù)列表 如何用ASP來獲取客戶端真實(shí)IP的地址 ASP用FSO生成HTML簡(jiǎn)單實(shí)例+詳解[原創(chuàng)]