请问一个E语言做随机数不重复问题,我现在想做一个关于1~编辑框内容怎么多的随机数,然后随机数是不重复的

.版本 2
.程序集 窗口程序集1
.程序集变量 已经开始, 逻辑型
.程序集变量 随机数组2, 整数型, , "0"
.程序集变量 临时文本, 文本型
.程序集变量 随机数组1, 整数型, , "0"
.子程序 __启动窗口_创建完毕
编辑框1.输入方式 ＝ 3  ' 整数文本输入
置随机数种子 ()
.子程序 _按钮1_被单击
.局部变量 x, 整数型
.判断开始 (编辑框1.内容 ＝ “”)
    信息框 (“请先输入随机最大值”, 0, )
    返回 ()
.判断 (到数值 (编辑框1.内容) ＜ 1)
    信息框 (“随机最大值不能小于1”, 0, )
    返回 ()
.判断 (已经开始 ＝ 真)
    取不重复随机数 ()
.默认
    .计次循环首 (到整数 (编辑框1.内容), x)
        加入成员 (随机数组1, x)
    .计次循环尾 ()
    临时文本 ＝ “”
    随机数组2 ＝ 随机数组1
    取不重复随机数 ()
.判断结束
.子程序 取不重复随机数
.局部变量 x, 整数型
.如果真 (取数组成员数 (随机数组2) ＜ 1)
    信息框 (“已出随机数：” ＋ 临时文本 ＋ #换行符 ＋ “随机数已取完,点击确定之后重新开始!”, 0, )
    清除数组 (随机数组1)
    已经开始 ＝ 假
    返回 ()
.如果真结束
x ＝ 取随机数 (1, 取数组成员数 (随机数组2))
已经开始 ＝ 真
.判断开始 (临时文本 ≠ “”)
    信息框 (“当前随机数：” ＋ 到文本 (随机数组2 [x]) ＋ #换行符 ＋ “已出随机数：” ＋ 临时文本, 0, “取随机数”)
.默认
    信息框 (“当前随机数：” ＋ 到文本 (随机数组2 [x]), 0, “取不重复随机数”)
.判断结束
临时文本 ＝ 临时文本 ＋ “[” ＋ 到文本 (随机数组2 [x]) ＋ “]”
清除数组 (随机数组2)
.计次循环首 (到整数 (编辑框1.内容), x)
    .如果真 (寻找文本 (临时文本, “[” ＋ 到文本 (随机数组1 [x]) ＋ “]”, , 假) ＜ 0)
        加入成员 (随机数组2, x)
    .如果真结束
.计次循环尾 ()