ASP实现冒泡排序
2006-03-01 18:26
176 查看
Function PoP(ArrayStr)
Dim TempArray
Dim TempStr,tStr
Dim i,j,k,l
Dim Exchange'交换标记
TempArray=Split(ArrayStr,",")
For i=1 To UBound(TempArray)'最多进行n-1趟排序
ExChange=False
For j=UBound(TempArray) To i step -1'对当前无序区R[i..n]自下向上扫描
If Not isnumeric(TempArray(j)) Then Exit For
If Cint(TempArray(j))<Cint(TempArray(j-1)) Then
TempStr=TempArray(j)
TempArray(j)=TempArray(j-1)
TempArray(j-1)=TempStr
ExChange=True
'Response.Write "第"&i&"趟 发现"&TempArray(j-1)&"比"&TempArray(j)&"小,将其位置调换"
End If
Next
If ExChange=False Then Exit For
Next
tStr=""
For k=0 To UBound(TempArray)
tStr=tStr&TempArray(k)&","
Next
Pop=Mid(tStr,1,Len(tStr)-1)
End Function
Dim TempArray
Dim TempStr,tStr
Dim i,j,k,l
Dim Exchange'交换标记
TempArray=Split(ArrayStr,",")
For i=1 To UBound(TempArray)'最多进行n-1趟排序
ExChange=False
For j=UBound(TempArray) To i step -1'对当前无序区R[i..n]自下向上扫描
If Not isnumeric(TempArray(j)) Then Exit For
If Cint(TempArray(j))<Cint(TempArray(j-1)) Then
TempStr=TempArray(j)
TempArray(j)=TempArray(j-1)
TempArray(j-1)=TempStr
ExChange=True
'Response.Write "第"&i&"趟 发现"&TempArray(j-1)&"比"&TempArray(j)&"小,将其位置调换"
End If
Next
If ExChange=False Then Exit For
Next
tStr=""
For k=0 To UBound(TempArray)
tStr=tStr&TempArray(k)&","
Next
Pop=Mid(tStr,1,Len(tStr)-1)
End Function
相关文章推荐
- asp.net下实现输入数字的冒泡排序
- ASP实现冒泡排序
- [转 ] asp.net用url重写URLReWriter实现任意二级域名
- 使文件下载的自定义连接支持 FlashGet 的断点续传多线程链接下载! C#/ASP.Net 实现!
- 用ASP实现多域名同一空间的处理实例
- 排序趟[置顶] Java和C实现的冒泡排序(基本思想)
- 在ASP.NET将程序中将上传的附件存储到另一台文件服务器上的实现
- ASP.NET抓取网页内容的实现方法
- 在 ASP.NET 网页中不经过回发而实现客户端回调(附Gridview无刷新代码)
- ASP.NET MVC 2/3 中实现filter判断浏览器
- 冒泡排序-c++代码实现及运行实例结果
- 利用Cookies实现ASP.NET跨域单点登录
- asp.net DataGrid 中文字符排序的实现代码
- Asp操作Excel的一些基本实现
- ASP.NET实现进度条
- msn 消息弹出 asp.net 组件下载(ASP.NET中实现MSN通知消息功能)
- asp.net实现视频在线播放
- asp.net中实现MD5加密、解密的方法
- ASP.NET 2.0的URL映射的实现方法