易语言随机抽取数值不能重复。

Question

不可以重复，给高分！

Answer 1

.版本 2

.程序集 窗口程序集1
.程序集变量 a, 整数型, , "0", 抽过的数，因为要重复执行子程序，所以不为局部变量

.子程序 _按钮1_被单击
.局部变量 b, 整数型, , , 抽到的数
.局部变量 i, 整数型

置随机数种子 ()
b ＝ 取随机数 (, )
.如果 (取数组成员数 (a) ＝ 0)
编辑框1.内容 ＝ 到文本 (b)
加入成员 (a, b)
' 第一次取的时候
.否则
.计次循环首 (取数组成员数 (a), i) ' 判断是否重复
.如果 (a [i] ＝ b) ' 逐个判断
_按钮1_被单击 () ' 这里调用本身的子程序，重新抽取数字
.否则
编辑框1.内容 ＝ 编辑框1.内容 ＋ “|” ＋ 到文本 (b) ' 不重复就加入
.如果结束

.计次循环尾 ()
.如果结束

请建立一个编辑框，一个按钮，具体说明都写在里面了

Answer 2

每随机出一个数，就加入到一个数组，且用计次循环来比对随机出来的这个数和与数组中每个成员的值。追问

说一下代码，谢谢！

Answer 3

利用组数和循环来完成。