

本渣的方法
.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 要排列的数组, 整数型, , "100"
.局部变量 备用数组1, 整数型, , "100"
.局部变量 备用数组2, 整数型, , "100"
.局部变量 随机数, 整数型
.局部变量 计次, 整数型
.计次循环首 (100, 计次)
连续赋值 (计次, 要排列的数组 [计次], 备用数组1 [计次])
.计次循环尾 ()
计次 = 0
置随机数种子 ()
.判断循环首 (取数组成员数 (备用数组1) ≥ 1)
计次 = 计次 + 1
随机数 = 取随机数 (1, 取数组成员数 (备用数组1))
备用数组2 [计次] = 备用数组1 [随机数]
删除成员 (备用数组1, 随机数, )
.判断循环尾 ()
.计次循环首 (100, 计次)
备用数组2 [计次] = 要排列的数组 [备用数组2 [计次]]
.计次循环尾 ()
调试输出 (要排列的数组)
要排列的数组 = 备用数组2
调试输出 (要排列的数组)
数组排序 (要排列的数组, 真)
调试输出 (要排列的数组)