按键精灵排序算法源码

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

@兄弟工程师012009/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 [最牛排序的算法]