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