作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/11/10 13:26:01
请问一个E语言做随机数不重复问题,我现在想做一个关于1~编辑框内容怎么多的随机数,然后随机数是不重复的
每次按按钮之后显示1个随机数,例如我编辑框写了10,就会出1~10然后出10次之后就没有啦~请问各位大神这个应该怎样弄呢?
请问一个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)
    .如果真结束
.计次循环尾 ()