易语言怎么数字排列?

2025-12-25 08:46:09
推荐回答(1个)
回答1:

附代码! 如下。

.版本 2

.程序集 窗口程序集1
.程序集变量 变量, 整数型, , "0"
.程序集变量 计次, 整数型

.子程序 __启动窗口_创建完毕

置随机数种子 ()

.子程序 _排序按钮_被单击

排序1 ()

.子程序 排序1

编辑框1.内容 = “”
数组排序 (变量, 真)
.计次循环首 (取数组成员数 (变量), 计次)
编辑框1.加入文本 (到文本 (变量 [计次]) + “,”)
.计次循环尾 ()
清除数组 (变量)

.子程序 _随机按钮_被单击

取随机数1 ()

.子程序 取随机数1
.局部变量 随机数, 整数型

编辑框1.内容 = “”
清除数组 (变量)
.计次循环首 (取随机数 (1, 20), 计次)
随机数 = 取随机数 (1, 500)
加入成员 (变量, 随机数)
编辑框1.加入文本 (到文本 (变量 [计次]) + “,”)
.计次循环尾 ()