随机数生成器（2），通过数组实现无重复随机数

qiaozirui

听取上个帖子评论区建议，升级随机数生成器，通过数组实现。
（详情请回看上个帖子）
更多建议请各位大佬在评论区指教。

  

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

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

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

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

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

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

变量名	类 型	静态	数组	备 注
随机数组	整数型		0
随机数下标	整数型
待选随机数	整数型
待选随机数组	整数型		0
待选随机数个数	整数型
待选最小随机数	整数型
待选最大随机数	整数型

' 无重复随机数
待选随机数 ＝ 到数值 (编辑框1.内容)
待选最小随机数 ＝ 待选随机数
待选随机数个数 ＝ 到数值 (编辑框2.内容) － 到数值 (编辑框1.内容) ＋ 1
计次循环首 (待选随机数个数, )
加入成员 (待选随机数组, 待选随机数)
待选随机数 ＝ 待选随机数 ＋ 1
计次循环尾 ()
待选最大随机数 ＝ 待选随机数
调试输出 (待选随机数组)
计次循环首 (到数值 (编辑框3.内容), )
随机数下标 ＝ 取随机数 (1, 待选随机数个数)
加入成员 (随机数组, 待选随机数组 [随机数下标])
编辑框4.加入文本 (到文本 (待选随机数组 [随机数下标]) ＋ “，”)
删除成员 (待选随机数组, 随机数下标, )
待选随机数个数 ＝ 待选随机数个数 － 1
计次循环尾 ()
调试输出 (随机数组)
' 编辑框4.内容 ＝ 到文本（随机数组）
信息框 (“生成完毕”, 0, , )

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

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

ljc70

感谢分享，支持开源！！！

remained5

乔哥也发帖了哈哈

MrSimpl

还可以，感谢分享

asa454

怎么实现点击一下按钮，标签内容自动加数字呀，而且是带小数点后两位的 弄了两天搞不来

asa454

刚刚注册~~~~~回复一下~~~ 谢谢分享

ctry78985

感谢分享

光影魔术

感谢分享源码

胖子葛格

感谢大神分享~！

396384183

支持开源~！感谢分享