按键精灵排序算法源码

按键精灵排序算法源码

运行环境：分辨率：1440x900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@兄弟工程师01 2009/3/19

a=Array(2,5,1,12,34,56,7,8,9,3333)  
Gosub [最牛排序的算法]  
MsgBox PaiXu  
EndScript   
Sub [最牛排序的算法]  
    i=0  
    While i<UBound(a)  
        If i <> 0  
            If a(i) < a(i-1)  
                temp=a(i): a(i)=a(i-1): a(i-1)=temp: i=i-2  
                If i < 0  
                    i=0  
                EndIf   
            EndIf   
        EndIf   
        i=i+1  
    EndWhile   
    PaiXu=Join(a)  
Return [最牛排序的算法]