更正确的asp冒泡排序
ASP 正确 冒泡排序
2023-06-13 09:13:56 时间
网上搜到的代码,千篇一律是这个
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错误,Windows7 IIS+ASP http500内部服务器错误(显示它的本来面目)
- 如何使用C ASP实现MySQL数据库连接(c asp连接mysql)
- 快速搭建ASP应用MySQL配置指南(asp配置mysql)
- ASP连接MySQL实现优雅的数据查询(asp连接查询mysql)
- 教程使用ASP连接MySQL,视频教程掌握一步搞定(asp连接mysql视频)
- ASP连接MySQL失败排查与解决方案(asp连接mysql失败)
- ASP技术可以驱动MySQL吗(asp能连接mysql吗)
- ASP绑定MySQL实现功能强大的数据库访问(asp绑定mysql)
- 如何使用ASP添加MySQL引用(asp添加mysql引用)
- ASP连接MySQL的实现方式(asp文件连接mysql)
- 基于ASP技术连接MySQL数据库(asp支持mysql)
- 快速了解如何在ASP环境下安装MySQL(asp 安装mysql)
- 使用ASP连接Oracle报错解决方案(asp连oracle报错)
- 讲解ASP方面的知识比较全的asp学习教程
- Asp.Net网站性能优化之缓字决(上)缓冲写数据
- asp.net未能加载文件或程序集“XXX”或它的某一个依赖项。试图加载格式不正确的程序。
- asp短信接口源码比较简单但也挺实用用的(两个写法)
- 在asp.net网页中显示数学符号的代码
- ASP.NET页面在IE缓存的清除办法