更正确的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 打印结果是 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 就差在一个clng() 但好笑的是，有些数组，用那个错误的sort函数是可以排正确的。

　　推荐阅读

　　一个js实现的所谓的滑动门

滑动门：我不理解为什么这样叫。我就命名为：JMenuTab吧，因为写它是为了当我的菜单。 IE6,FireFox下测试通过。复制代码代码如下:<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www>>>详细阅读

本文标题：更正确的asp冒泡排序

地址：http://www.17bianji.com/kaifa2/JS/30423.html

1/2 1