IT猫扑网：您身边最放心的安全下载站！ 最新更新|软件分类|软件专题|手机版|论坛转贴|软件发布

您当前所在位置： 首页 → 网络编程 → Asp编程 → 更正确的asp冒泡排序

更正确的asp冒泡排序

时间：2015-06-28 00:00:00 来源：IT猫扑网 作者：网管联盟 我要评论(0)

网上搜到的代码，千篇一律是这个

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) &

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

关键词标签：排序,正确,ary,KeepCh

相关阅读 JS验证日期格式是否正确 正确删除系统中文件名乱码的文件 如何正确理解PHP程序错误信息的表示含义 如何正确编写高质量高性能的MySQL语法 如何正确的解决 MySQL中忽略用户的现象 正确认识MySQL对服务器端光标的限制

文章评论
发表评论

热门文章 ASP编程代码：隐藏图片的真实地址 ASP编程代码：隐藏图片的真实地址 ASP教程:0177:800401f3错误解决 ASP教程:0177:800401f3错误解决 ASP代码中如何屏蔽ip地址 禁止某IP段访问网站 ASP代码中如何屏蔽ip地址 禁止某IP段访问网站 错误80004005信息处理方法 错误80004005信息处理方法

相关下载

人气排行 ASP下标越界的解决方法 ASP代码中如何屏蔽ip地址 禁止某IP段访问网站 “文件共享锁定数溢出” 原因及解决方法 无法写入数据库的解决方法 ASP教程:0177:800401f3错误解决 ASP常用函数列表 如何用ASP来获取客户端真实IP的地址 ASP用FSO生成HTML简单实例+详解[原创]