取不重复随机数的源码例子

紫猫

需注意, 取随机数()命令自身有范围限制, 请自行想办法解决

[Visual Basic] 纯文本查看 复制代码

.版本 2

.子程序 取不重复随机数
.参数 随机个数, 整数型
.参数 随机最小值, 整数型
.参数 随机最大值, 整数型
.参数 结果数组, 整数型, 数组
.局部变量 随机池数组, 整数型, , "0"
.局部变量 随机池成员数, 整数型
.局部变量 i, 整数型
.局部变量 随机下标, 整数型

置随机数种子 ()
随机池成员数 ＝ 随机最大值 － 随机最小值 + 1
重定义数组 (随机池数组, 假, 随机池成员数)
.计次循环首 (随机池成员数, i)
    随机池数组 [i] ＝ 随机最小值 ＋ i － 1
.计次循环尾 ()
重定义数组 (结果数组, 假, 随机个数)

.计次循环首 (随机个数, i)
    随机下标 ＝ 取随机数 (1, 随机池成员数 － (i － 1))  ' 自己注意下取随机数()命令的结果范围问题
    结果数组 [i] ＝ 随机池数组 [随机下标]
    交换变量 (随机池数组 [随机下标], 随机池数组 [随机池成员数 － (i － 1)])
.计次循环尾 ()