一区二区久久-一区二区三区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冒泡排序,轉載需保留來源!

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

主站蜘蛛池模板: 自偷自拍亚洲欧美清纯唯美 | 成人情趣视频无遮掩免费 | 99久久精品免费看国产一区二区三区 | 久久精品国产99久久 | 国产亚洲精品福利 | 91麻豆精品一二三区在线 | 亚洲国产成人欧美激情 | 福利视频一区二区三区 | 91亚洲成人| 深爱五月激情 | 亚洲精品中文字幕乱码三区一二 | 成人免费看片视频色多多 | 露脸真实国产精品自在 | 成年女人男人免费视频播放 | 成人免费福利 | 国产性生大片免费观看性 | 碰碰碰人人澡人人爱摸 | 精品五月天 | 一道本色| 日本乱理伦中文三区 | 国产精品欧美亚洲韩国日本不卡 | 国产福利资源 | 久久加勒比 | 免费色播 | 色吧久久| 国产精品亚洲自在线播放页码 | 黄色激情视频在线观看 | 狠狠操操操 | 精品国产一区二区三区不卡 | 香蕉成人在线视频 | 2022久久免费精品国产72精品 | 久久综合色鬼 | 亚洲日韩中文字幕 | 白丝美女被狂躁视频免费网站 | 午夜黄色毛片 | 国产一区成人 | 国产精品久久久久毛片真精品 | 美女网站色黄 | 国产亚洲欧美另类久久久 | 91精品国产丝袜在线拍 | 网站免费满18成年在线观看 |