主頁 > 知識庫 > 修改正確的asp冒泡排序

修改正確的asp冒泡排序

熱門標簽:高質量的電銷外呼系統(tǒng) 宿州防封外呼系統(tǒng)平臺 地圖標注還可以做嗎 外呼系統(tǒng)怎么話費 友邦互聯(lián)電銷機器人違法嗎 滴滴地圖標注上車點 硅基電話機器人加盟 電銷機器人采購 無營業(yè)執(zhí)照地圖標注教學
網(wǎng)上搜到的代碼,千篇一律是這個

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

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

標簽:儋州 七臺河 新余 江門 宣城 雅安 錫林郭勒盟 廣元

巨人網(wǎng)絡通訊聲明:本文標題《修改正確的asp冒泡排序》,本文關鍵詞  修改,正確,的,asp,冒泡,排序,;如發(fā)現(xiàn)本文內容存在版權問題,煩請?zhí)峁┫嚓P信息告之我們,我們將及時溝通與處理。本站內容系統(tǒng)采集于網(wǎng)絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《修改正確的asp冒泡排序》相關的同類信息!
  • 本頁收集關于修改正確的asp冒泡排序的相關信息資訊供網(wǎng)民參考!
  • 推薦文章