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