ASP实现冒泡排序
来源:互联网 发布:网络谣言 法律法规 编辑:程序博客网 时间:2024/05/30 02:23
- Function PoP(ArrayStr)
- Dim TempArray
- Dim TempStr,tStr
- Dim i,j,k,l
- Dim Exchange
- TempArray=Split(ArrayStr,",")
- For i=1 To UBound(TempArray)
- ExChange=False
- For j=UBound(TempArray) To i step -1
- 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
-
- 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