附代码! 如下。
.版本 2
.程序集 窗口程序集1
.程序集变量 变量, 整数型, , "0"
.程序集变量 计次, 整数型
.子程序 __启动窗口_创建完毕
置随机数种子 ()
.子程序 _排序按钮_被单击
排序1 ()
.子程序 排序1
编辑框1.内容 = “”
数组排序 (变量, 真)
.计次循环首 (取数组成员数 (变量), 计次)
编辑框1.加入文本 (到文本 (变量 [计次]) + “,”)
.计次循环尾 ()
清除数组 (变量)
.子程序 _随机按钮_被单击
取随机数1 ()
.子程序 取随机数1
.局部变量 随机数, 整数型
编辑框1.内容 = “”
清除数组 (变量)
.计次循环首 (取随机数 (1, 20), 计次)
随机数 = 取随机数 (1, 500)
加入成员 (变量, 随机数)
编辑框1.加入文本 (到文本 (变量 [计次]) + “,”)
.计次循环尾 ()