最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

更正確的asp冒泡排序

 更新時間:2007年05月24日 00:00:00   作者:  
網(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

打印結(jié)果是



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ù)是可以排正確的。

相關(guān)文章

最新評論

吉水县| 武鸣县| 鹤岗市| 基隆市| 裕民县| 嘉黎县| 云安县| 化德县| 瓮安县| 德安县| 奈曼旗| 封丘县| 武邑县| 中牟县| 台中县| 芜湖县| 九龙坡区| 宝清县| 平凉市| 龙井市| 榆林市| 定安县| 西畴县| 南部县| 永川市| 永定县| 邓州市| 秭归县| 富民县| 通许县| 满洲里市| 时尚| 呼图壁县| 恩施市| 建瓯市| 普洱| 同德县| 休宁县| 万盛区| 台东市| 湘潭县|