作家
登录

修改正确的asp冒泡排序

作者: 来源:www.28hudong.com 2013-03-30 08:32:06 阅读 我要评论

网上搜到的代码,千篇一律是这个 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

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)