时间：2015-06-28 00:00 来源：IT猫扑网|http://www.itmop.com/ 作者：网管联盟 我要评论(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) & <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函数是可以排正确的。
关键词标签：排序,正确,ary,KeepCh
相关阅读
热门文章
Active Server Pages 错误 'ASP 0131'解决方法
宝宝巴士宝宝学排序 v9.91.00.00
时间：2026-06-18
宝宝巴士排序历险记破解版 v9.78.00.00
时间：2024-04-17
系统维护工具Glary Utilities Pro激活码版 v5.191.0.220 安装版
时间：2022-07-07
Glary Utilities中文安装版(全能系统维护军刀) v5.184.0.213 中文注册版
时间：2022-03-15
Glary Utilities Pro v5.183.0.212 中文版
时间：2022-03-03
EDiary电子日记本 v3.4.0 绿色版
时间：2020-05-16
人气排行 ASP下标越界的解决方法 ASP代码中如何屏蔽ip地址 禁止某IP段访问网站 “文件共享锁定数溢出” 原因及解决方法 无法写入数据库的解决方法 ASP教程:0177:800401f3错误解决 ASP常用函数列表 如何用ASP来获取客户端真实IP的地址 ASP用FSO生成HTML简单实例+详解[原创] 用Asp编程实现QQ的在线情况查询 ASP彻底实现伪静态化html 解决:错误提示：Microsoft OLE DB Provider for ODBC Drivers (0x800040 如何在上传的图片上打自己的文字水印
查看所有0条评论>>