易语言取不重复随机数

易语言取不重复随机数，在一定范围内（如1-53）取出一个不重复随机数，只要一个，但是当53个数字都抽过了，就重新再计算过，清除之前已经抽取过得随机数，有教程嘛？例程也可以。。

.版本 2

.子程序 取随机数字, 文本型
.参数 个数, 整数型
.局部变量 去重复, 节点
.局部变量 a, 文本型
.局部变量 i, 整数型
.局部变量 str, 文本型

置随机数种子 ()
.判断循环首 (i ≤ 个数)
a ＝ 到文本 (取随机数 (1, 53))
.如果真 (去重复.加入属性 (a, 真))

i ＝ i ＋ 1
.如果真 (i ＝ 个数)
str ＝ str ＋ 取文本右边 (“00” ＋ 到文本 (a), 2)
跳出循环 ()
.如果真结束
str ＝ str ＋ 取文本右边 (“00” ＋ 到文本 (a), 2) ＋ “,”
.如果真结束

.判断循环尾 ()
返回 (str)

个数参数是让你输入取的个数

如果要一串不重复的随机数的话，那这样是不行的。 比较好的方法是这样 先定义一个数组，比较100个。 随机提取两个数进行交换 重复次数多一点，比如说200次 现在这个数组就是一个随机的不重复的1到100的数组了。