马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有账号？立即注册
×
需注意, 取随机数()命令自身有范围限制, 请自行想办法解决
[Visual Basic] 纯文本查看 复制代码 .版本 2
.子程序 取不重复随机数
.参数 随机个数, 整数型
.参数 随机最小值, 整数型
.参数 随机最大值, 整数型
.参数 结果数组, 整数型, 数组
.局部变量 随机池数组, 整数型, , "0"
.局部变量 随机池成员数, 整数型
.局部变量 i, 整数型
.局部变量 随机下标, 整数型
置随机数种子 ()
随机池成员数 ＝ 随机最大值 － 随机最小值 + 1
重定义数组 (随机池数组, 假, 随机池成员数)
.计次循环首 (随机池成员数, i)
随机池数组 [i] ＝ 随机最小值 ＋ i － 1
.计次循环尾 ()
重定义数组 (结果数组, 假, 随机个数)
.计次循环首 (随机个数, i)
随机下标 ＝ 取随机数 (1, 随机池成员数 － (i － 1)) ' 自己注意下取随机数()命令的结果范围问题
结果数组 [i] ＝ 随机池数组 [随机下标]
交换变量 (随机池数组 [随机下标], 随机池数组 [随机池成员数 － (i － 1)])
.计次循环尾 ()
| 
发表于 2021-9-10 14:56:06
发表于 2024-7-28 10:45:54
