网上搜到的代码,千篇一律是这个 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函数是可以排正确的。
推荐阅读
Script.VBS.Agent.ai juan.vbs专杀
HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerAdvancedShowSuperHidden 值:Type: REG_DWORD, Length: 4, Data: 0 HKLMSOFTWAREMicrosoftWindowsCurrentVersionExplorerAdvancedFo>>>详细阅读
本文标题:修改正确的asp冒泡排序
地址:http://www.17bianji.com/kaifa2/ASP/32326.html
1/2 1