易语言超简短代码实现高效率取不重复取随机数

 

.版本 2

.子程序 __启动窗口_创建完毕
.局部变量 n, 整数型
.局部变量 数, 整数型, , "10000"
.局部变量 Random, 整数型

.计次循环首 (10000, n)
数 [n] ＝ n
.计次循环尾 ()
置随机数种子 ()
.计次循环首 (1000, n)
Random ＝ 取随机数 (1, 取数组成员数 (数))
列表框1.加入项目 (到文本 (数 [Random]), )
删除成员 (数, Random, )
.计次循环尾 ()