精易论坛

标题: 随机数生成器(2),通过数组实现无重复随机数 [打印本页]

作者: qiaozirui    时间: 2024-8-5 14:03
标题: 随机数生成器(2),通过数组实现无重复随机数
听取上个帖子评论区建议,升级随机数生成器,通过数组实现。
(详情请回看上个帖子)
更多建议请各位大佬在评论区指教。
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
子程序名返回值类型公开备 注
_按钮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特殊功能支持库

随机数3.e

6.69 KB, 下载次数: 24, 下载积分: 精币 -2 枚


作者: pipicool    时间: 2024-8-5 16:15
学习一下
作者: 752400010    时间: 2024-8-5 16:46
5555555555555555555555555555555
作者: ttggnn    时间: 2024-8-5 21:41
支持开源~!感谢分享
作者: 孤静之美    时间: 2024-8-5 23:40
楼主事真听劝
作者: year1970    时间: 2024-8-6 07:54
感谢分享
作者: jtucar    时间: 2024-8-6 08:58
感谢分享!
作者: 一指温柔    时间: 2024-8-6 09:40
感谢分享!
作者: please    时间: 2024-8-7 09:38
感谢分享,支持开源!!!
作者: 396384183    时间: 2024-8-7 19:46
支持开源~!感谢分享
作者: 胖子葛格    时间: 2024-8-8 09:31
感谢大神分享~!
作者: 光影魔术    时间: 2024-8-8 13:17
感谢分享源码
作者: ctry78985    时间: 2024-8-9 07:59
感谢分享
作者: asa454    时间: 2024-8-16 22:36
刚刚注册~~~~~回复一下~~~ 谢谢分享
作者: asa454    时间: 2024-8-16 22:40
怎么实现点击一下按钮,标签内容自动加数字呀,而且是带小数点后两位的 弄了两天搞不来
作者: MrSimpl    时间: 2024-8-25 22:16
还可以,感谢分享
作者: remained5    时间: 2024-8-30 15:00
乔哥也发帖了哈哈

作者: ljc70    时间: 2024-9-17 16:54
感谢分享,支持开源!!!
作者: gudujian420    时间: 2024-10-2 11:19
支持开源,
作者: 清风醉1    时间: 2024-10-2 11:23
666666666666666666666666666666666666666666
作者: 熊不熊    时间: 2024-12-4 21:05
感谢分享,很给力!~




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4