易语言取不重复随机数

2024-12-02 12:38:29

推荐回答（1个）

回答1：

.版本 2

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

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

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

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

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