日期:2015-06-28 00:00:00 来源: IT猫扑网
网上搜到的代码,千篇一律是这个
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函数是可以排正确的。
相关文章
相关下载
宝宝巴士排序历险记破解版 休闲益智90.28 MBv9.78.00.00安卓版
下载宝宝巴士宝宝学排序 休闲益智90.28 MBv9.76.00.01安卓版
下载系统维护工具Glary Utilities Pro激活码版 系统增强24.25 MBv5.191.0.220 安装版
下载Glary Utilities中文安装版(全能系统维护军刀) 系统增强19.46 MBv5.184.0.213 中文注册版
下载Glary Utilities Pro 系统增强23.70 MBv5.183.0.212 中文版
下载EDiary电子日记本 文字处理4.20 MBv3.4.0 绿色版
下载网友评论