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 [最牛排序的算法]