按键精灵排序算法源码
运行环境:分辨率:1440×900 色深: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 [最牛排序的算法]
按键精灵算法
按键精灵优先算法
按键精灵给图片排序