更不易的asp冒泡排序

日期:2019-09-07编辑作者:前端科技

网上搜到的代码,千篇一律是这个
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函数是可以排正确的。

FunctionSort(ary) DimKeepChecking,I,FirstValue,SecondValue KeepChecking=TRUE DoUntilKeepChecking=FALSE KeepChecking=FALSE ForI=0toUBoun...

本文由今晚最快开奖现场直播发布于前端科技,转载请注明出处:更不易的asp冒泡排序

关键词:

文字自动,js实现的的

说明:单独用没问题不能和自带的搜索和登陆同时出现在一个页面上,打开页面时都没出错只要一点aaa等 网页上就会...

详细>>

select选拔事件难题,css完毕鼠标放上去

New Document New Document 挪动背景转换 移步背景转换 移动背景转变 活动背景转换 挪动背景调换 Code [Ctrl+A 全选 注:如需引...

详细>>

JS获取scrollHeight问题想到的标准问题

自身在作贰个iframe自动调解中度时,被放置的页面commit.asp的代码如下: 复制代码 代码如下: !DOCTYPE html PUBLIC "-//W3C/...

详细>>

毫无MOUSEMOVE也能滑动啊

!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ";  html xmlns=";  head  meta http-equiv="Content-Type" content="text/html; ...

详细>>