更正确的asp冒泡排序
2007-05-24 00:00
239 查看
网上搜到的代码,千篇一律是这个
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函数是可以排正确的。
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函数是可以排正确的。
相关文章推荐
- 修改正确的asp冒泡排序
- 修改正确的asp冒泡排序
- 更正确的asp冒泡排序
- WN7 上IIS7运行asp+access网站出现错误: ADODB.Connection 错误 '800a0e7a'未找到提供程序。该程序可能未正确安装
- ASP.NET Post页面及验证视图状态MAC失败问题的正确解决办法
- ASP.NET中如何正确使用Session
- iis6/IIS7 asp 未找到提供程序,该程序可能未正确安装 64位系统
- ASP中使用存储过程,遭遇"参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突"错误
- ASP.NET中的Session怎么正确使用[转]
- 将图片插入数据库并使用asp.net读取出来的正确方法
- Asp站点 : Jquery构建的TreeView 树菜单及灵活的弹出页.小谈asp的初次运用(ADODB.Recordset (0x800A0BB9) 参数类型不正确).
- 新装系统5ucms进后台报错-数据库链接出错,请检查数据库路径是否正确(Inc/Conn.asp)!解决办法
- VS2012 未能将网站XXX配置为使用ASP.NET 4.5.为了使此网站正确运行,您必须将它手动配置为ASP.NET 4.5
- ASP实现冒泡排序
- [ASP.NET]确保代码正确的绑定
- asp.net链接Access数据库字符串正确方法
- ASP用正则表达式验证邮箱是否格式正确
- ASP:Menu 在IE8中显示不正确的解决方法
- asp.net 导出Excel时 身份证号码的正确导出
- 在ASP.NET的Form 中检查填写是否正确