1. a=Array(2,5,1,12,34,56,7,8,9,3333)
2. 调用子程序 [最牛排序的算法]
3. MsgBox PaiXu
4. 脚本停止运行
5. 子程序 [最牛排序的算法]
6.     i=0
7.     如果表达式 (i<UBound(a)) 为真,则循环执行
8.         如果表达式 (i <> 0) 为真,则
9.             如果表达式 (a(i) < a(i-1)) 为真,则
10.                 temp=a(i): a(i)=a(i-1): a(i-1)=temp: i=i-2
11.                 如果表达式 (i < 0) 为真,则
12.                     i=0
13.                 条件结束
14.             条件结束
15.         条件结束
16.         i=i+1
17.     循环结束
18.     PaiXu=Join(a)
19. 子程序结束,回到调用处