易语言创建一组随机数并将其排序的代码

.版本 2
.程序集 窗口程序集1
.子程序 _排序按钮_被单击
.局部变量 计次
.局部变量 寄存器, 整数型, , "20"
.局部变量 N
置随机数种子 ()
.计次循环首 (取数组成员数 (寄存器), 计次)
  寄存器 [计次] ＝ 取随机数 (1, 100)
.计次循环尾 ()
.计次循环首 (取数组成员数 (寄存器), 计次)
  .计次循环首 (取数组成员数 (寄存器) － 1, N)
    .判断开始 (寄存器 [N] ＞ 寄存器 [计次])
    .默认
      寄存器 [N] ＝ 寄存器 [N] ＋ 寄存器 [计次]
      寄存器 [计次] ＝ 寄存器 [N] － 寄存器 [计次]
      寄存器 [N] ＝ 寄存器 [N] － 寄存器 [计次]
    .判断结束
  .计次循环尾 ()
.计次循环尾 ()
.计次循环首 (取数组成员数 (寄存器), 计次)
  排序结果编辑框.内容 ＝ 排序结果编辑框.内容 ＋ 到文本 (寄存器 [计次]) ＋ #换行符
.计次循环尾 ()