婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

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

修改正確的asp冒泡排序
熱門標(biāo)簽：高質(zhì)量的電銷外呼系統(tǒng) 宿州防封外呼系統(tǒng)平臺(tái) 地圖標(biāo)注還可以做嗎 外呼系統(tǒng)怎么話費(fèi) 友邦互聯(lián)電銷機(jī)器人違法嗎 滴滴地圖標(biāo)注上車點(diǎn) 硅基電話機(jī)器人加盟 電銷機(jī)器人采購 無營(yíng)業(yè)執(zhí)照地圖標(biāo)注教學(xué)
網(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ù)是可以排正確的。

標(biāo)簽：儋州 七臺(tái)河 新余 江門 宣城 雅安 錫林郭勒盟 廣元

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《修改正確的asp冒泡排序》，本文關(guān)鍵詞  修改,正確,的,asp,冒泡,排序,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《修改正確的asp冒泡排序》相關(guān)的同類信息！
  • 本頁收集關(guān)于修改正確的asp冒泡排序的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    主站蜘蛛池模板： 西安市| 农安县| 玉门市| 常宁市| 彭水| 龙口市| 雅安市| 株洲市| 饶河县| 合水县| 茂名市| 博野县| 江陵县| 三门县| 延寿县| 禹城市| 祁阳县| 道真| 西吉县| 襄汾县| 池州市| 连平县| 神农架林区| 高平市| 许昌市| 景泰县| 南陵县| 宁南县| 东海县| 潜江市| 招远市| 阳新县| 驻马店市| 玉龙| 徐州市| 岳池县| 恭城| 酒泉市| 巧家县| 偃师市| 巴彦淖尔市|