您的位置:首页 > 编程语言 > ASP

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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签:  asp exchange function