取N组不重复数字模块

.子程序 取出N组不重复数字, , 公开
.参数 返回取出的数组, 整数型, 参考 数组, 存放取出来的数组
.参数 欲取多少组, 整数型, , 要取多少组
.参数 最小值, 整数型, , 要取的最小数值
.参数 最大值, 整数型, , 要取的最大数值
.局部变量 局部_计次, 整数型
.局部变量 局部_大计次, 整数型
.局部变量 局部_随机数, 整数型

置随机数种子 ()
.计次循环首 (欲取多少组, 局部_大计次)
局部_随机数 ＝ 取随机数 (最小值, 最大值)
.如果 (取数组成员数 (返回取出的数组) ＞ 0)
.循环判断首 ()
局部_计次 ＝ 局部_计次 ＋ 1
.如果真 (局部_随机数 ＝ 返回取出的数组 [局部_计次])
局部_随机数 ＝ 取随机数 (最小值, 最大值)
局部_计次 ＝ 0
到循环尾 ()
.如果真结束
.如果真 (局部_随机数 ≠ 返回取出的数组 [局部_计次] 且 局部_计次 ＝ 取数组成员数 (返回取出的数组))
加入成员 (返回取出的数组, 局部_随机数)
局部_计次 ＝ 0
跳出循环 ()
.如果真结束

.循环判断尾 (局部_计次 ≠ 取数组成员数 (返回取出的数组))
.否则
加入成员 (返回取出的数组, 局部_随机数)
.如果结束

.计次循环尾 ()
易语言取N组不重复数字模块例子。