主页 > 知识库 > 修改正确的asp冒泡排序

修改正确的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

打印结果是



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函数是可以排正确的。

标签:儋州 七台河 新余 江门 宣城 雅安 锡林郭勒盟 广元

巨人网络通讯声明:本文标题《修改正确的asp冒泡排序》,本文关键词  修改,正确,的,asp,冒泡,排序,;如发现本文内容存在版权问题,烦请提供相关信息告之我们,我们将及时沟通与处理。本站内容系统采集于网络,涉及言论、版权与本站无关。
  • 相关文章
  • 下面列出与本文章《修改正确的asp冒泡排序》相关的同类信息!
  • 本页收集关于修改正确的asp冒泡排序的相关信息资讯供网民参考!
  • 推荐文章