随机数生成器，包括无重复随机数实现

qiaozirui

自己写的随机数生成器，起初是对无重复随机数思路的思考。
源码中含有无重复随机数实现方式。
请各位大佬多多指教。
（源码只表明自身对无重复随机数实现思路的思考，不必过分在意功能。）

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

编辑框4.内容 ＝ “”
置随机数种子 ()
判断 (选择框1.选中 ＝ 真)
子程序1 ()
判断 (选择框1.选中 ＝ 假)
子程序3 ()

子程序名	返回值类型	公开	备 注
子程序1

' 重复随机数
计次循环首 (到数值 (编辑框3.内容), a)
编辑框4.加入文本 (到文本 (取随机数 (到数值 (编辑框1.内容), 到数值 (编辑框2.内容))) ＋ “，”)
计次循环尾 ()
信息框 (“生成完毕”, 0, , )

子程序名	返回值类型	公开	备 注
子程序2

变量名	类 型	静态	数组	备 注
有效随机数个数	整数型
随机数	整数型

' 无重复随机数
有效随机数个数 ＝ 0
判断循环首 (有效随机数个数 ＜ 到数值 (编辑框3.内容))
调试输出 (到文本 (有效随机数个数))
随机数 ＝ 取随机数 (到数值 (编辑框1.内容), 到数值 (编辑框2.内容))
如果真 (寻找文本 (编辑框4.内容, 到文本 (随机数), , 假) ＝ -1)
编辑框4.加入文本 (到文本 (随机数) ＋ “，”)
有效随机数个数 ＝ 有效随机数个数 ＋ 1

判断循环尾 ()
信息框 (“生成完毕”, 0, , )

子程序名	返回值类型	公开	备 注
子程序3

如果 (到数值 (编辑框2.内容) － 到数值 (编辑框1.内容) ＋ 1 ＜ 到数值 (编辑框3.内容))
信息框 (“数据错误！”, 0, , )
选择框1.选中 ＝ 真
子程序2 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框4.内容 ＝ “”<br /> 置随机数种子 ()<br /> .判断开始 (选择框1.选中 ＝ 真)<br />     子程序1 ()<br /> .判断 (选择框1.选中 ＝ 假)<br />     子程序3 ()<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 子程序1<br /> <br /> ' 重复随机数<br /> .计次循环首 (到数值 (编辑框3.内容), a)<br />     编辑框4.加入文本 (到文本 (取随机数 (到数值 (编辑框1.内容), 到数值 (编辑框2.内容))) ＋ “，”)<br /> .计次循环尾 ()<br /> 信息框 (“生成完毕”, 0, , )<br /> <br /> <br /> .子程序 子程序2<br /> .局部变量 有效随机数个数, 整数型<br /> .局部变量 随机数, 整数型<br /> <br /> ' 无重复随机数<br /> 有效随机数个数 ＝ 0<br /> .判断循环首 (有效随机数个数 ＜ 到数值 (编辑框3.内容))<br />     调试输出 (到文本 (有效随机数个数))<br />     随机数 ＝ 取随机数 (到数值 (编辑框1.内容), 到数值 (编辑框2.内容))<br />     .如果真 (寻找文本 (编辑框4.内容, 到文本 (随机数), , 假) ＝ -1)<br />         编辑框4.加入文本 (到文本 (随机数) ＋ “，”)<br />         有效随机数个数 ＝ 有效随机数个数 ＋ 1<br />     .如果真结束<br /> <br /> .判断循环尾 ()<br /> 信息框 (“生成完毕”, 0, , )<br /> <br /> <br /> .子程序 子程序3<br /> <br /> .如果 (到数值 (编辑框2.内容) － 到数值 (编辑框1.内容) ＋ 1 ＜ 到数值 (编辑框3.内容))<br />     信息框 (“数据错误！”, 0, , )<br />     选择框1.选中 ＝ 真<br /> .否则<br />     子程序2 ()<br /> .如果结束

koox

感谢分享，很给力！~

熊不熊

感谢分享，很给力！~

foo9527

谢谢分享

APPLEUFO

算法和控件分离，一堆编辑框夹杂在算法里面
无重复随机的话，取1-10000，然后打乱顺序，每次取最后一个，取完删除，能取用一万次

mood100

思路很好感谢分享

光影魔术

感谢分享源码

hjinpwhe1

学习 学习 学习

396384183

多谢分享，正需要

dangerace

取随机数不要用核心库的命令，有bug，取出来的随机数随机性很差。