一区二区久久-一区二区三区www-一区二区三区久久-一区二区三区久久精品-麻豆国产一区二区在线观看-麻豆国产视频

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

打印結果是



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()

但好笑的是,有些數組,用那個錯誤的sort函數是可以排正確的。

JavaScript技術更正確的asp冒泡排序,轉載需保留來源!

鄭重聲明:本文版權歸原作者所有,轉載文章僅為傳播更多信息之目的,如作者信息標記有誤,請第一時間聯系我們修改或刪除,多謝。

主站蜘蛛池模板: 国产欧美一区二区三区在线 | 中国第一毛片 | 久久久久久亚洲精品不卡 | 91精品国产麻豆国产自产在线 | 在线观看色视频网站 | 丁香四月婷婷 | 成人亚洲视频 | 中文字幕日本一本二本三区 | 精品国产乱码一区二区三区 | 国产福利三区 | 极品福利视频 | www.日本一区 | 免费观看四虎精品国产永久 | 久久一日本道色综合久 | 91精品91久久久 | 综合色网站 | 欧美日韩亚洲一区二区三区 | 成人三级在线播放 | 国产99久久精品一区二区 | 久久久噜噜噜久久久午夜 | 国产亚洲精品高清在线 | 国产高清精品入口麻豆 | 日韩精品网址 | 手机在线日韩高清理论片 | 另类视频色综合 | 欧美色成人 | 免费一区二区三区 | 五月激情综合婷婷 | 国产精品午夜在线观看 | 99久久国产| 一区视频在线播放 | 美女又爽又黄免费 | 16女性下面扒开无遮挡免费 | 在线观看视频一区二区 | 久久综合九色综合97伊人麻豆 | 中文有码中文字幕免费视频 | 久久香蕉综合色一综合色88 | 激情图片激情视频激情小说 | 成人在线观看午夜 | 精品国内自产拍在线视频 | 91久久综合 |