简单的取去重复随机数

LYForever

简单的取去重复随机数（排除法）。
已经有很多注释了，所以适合小白学习数组，循环，耗时等。
因为是排除法去重复，所以有鸡肋，取值越多就越慢。

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕			使用方法

变量名	类 型	静态	数组	备 注
数组	整数型		0	用变量来寄存

调试输出 (取去重复随机数 (0, 100, 10, 数组))  ' 获取返回值
调试输出 (数组)  ' 获取取到的随机数

子程序名	返回值类型	公开	备 注
取去重复随机数	整数型		成功返回耗时，失败返回负数错误码.与取随机数一样，不支持负数
参数名	类 型	参考	可空	数组	备 注
最小值	整数型
最大值	整数型
值数量	整数型				获取的数组值数量
返回数组	整数型				返回的数组

变量名	类 型	静态	数组	备 注
耗时	整数型			用来计算子程序消耗时间的
计次	整数型			计次变量
二计次	整数型			去重复

耗时 ＝ 取启动时间 ()  ' 计算当前时间，成功后计算耗时
如果真 (最大值 － 最小值 ＋ 1 ＜ 值数量)
返回 (-1)  ' 最小值与最大值相隔值数量
如果真 (最大值 ＜ 0 或 最小值 ＜ 0)
返回 (-2)  ' 最大值和最小值小于0
判断循环首 (取数组成员数 (返回数组) ≠ 值数量)
' 若非重复随机数返回数组未达到预定值数量就会一直取
置随机数种子 ()  ' 取随机数值
加入成员 (返回数组, 取随机数 (最小值, 最大值))  ' 将取到的随机值加入到预定返回数组里
计次循环首 (取数组成员数 (返回数组), 计次)  ' 开始去重复
' 当从第一次循环中获取所有数组值
如果真 (计次 ＞ 取数组成员数 (返回数组))  ' 获取所有数组值完后跳出循环
跳出循环 ()
计次循环首 (取数组成员数 (返回数组) － 计次, )  ' 真正意义的排除法去重复
二计次 ＝ 二计次 ＋ 1
如果真 (返回数组 [计次] ＝ 返回数组 [计次 ＋ 二计次])  ' 从第一次循环获取到的所有值检查是否有重复项
删除成员 (返回数组, 计次 ＋ 二计次, )  ' 检查到，删除项
二计次 ＝ 二计次 － 1
如果真 (计次 ＋ 二计次 ＝ 取数组成员数 (返回数组))  ' 没有检查到
二计次 ＝ 0  ' 没有检查到跳出循环
跳出循环 ()

计次循环尾 ()  ' 去重复检查一次数组列表完毕
计次循环尾 ()  ' 去重复检查完毕
判断循环尾 ()  ' 完毕
返回 (取启动时间 () － 耗时)  ' 通过计算启动时间与现在时，获得消耗时，单位毫秒

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕, , , 使用方法<br /> .局部变量 数组, 整数型, , "0", 用变量来寄存<br /> <br /> 调试输出 (取去重复随机数 (0, 100, 10, 数组))  ' 获取返回值<br /> 调试输出 (数组)  ' 获取取到的随机数<br /> <br /> .子程序 取去重复随机数, 整数型, , 成功返回耗时，失败返回负数错误码.与取随机数一样，不支持负数<br /> .参数 最小值, 整数型<br /> .参数 最大值, 整数型<br /> .参数 值数量, 整数型, , 获取的数组值数量<br /> .参数 返回数组, 整数型, 参考 数组, 返回的数组<br /> .局部变量 耗时, 整数型, , , 用来计算子程序消耗时间的<br /> .局部变量 计次, 整数型, , , 计次变量<br /> .局部变量 二计次, 整数型, , , 去重复<br /> <br /> 耗时 ＝ 取启动时间 ()  ' 计算当前时间，成功后计算耗时<br /> .如果真 (最大值 － 最小值 ＋ 1 ＜ 值数量)<br />     返回 (-1)  ' 最小值与最大值相隔值数量<br /> .如果真结束<br /> .如果真 (最大值 ＜ 0 或 最小值 ＜ 0)<br />     返回 (-2)  ' 最大值和最小值小于0<br /> .如果真结束<br /> .判断循环首 (取数组成员数 (返回数组) ≠ 值数量)<br />     ' 若非重复随机数返回数组未达到预定值数量就会一直取<br />     置随机数种子 ()  ' 取随机数值<br />     加入成员 (返回数组, 取随机数 (最小值, 最大值))  ' 将取到的随机值加入到预定返回数组里<br />     .计次循环首 (取数组成员数 (返回数组), 计次)  ' 开始去重复<br />         ' 当从第一次循环中获取所有数组值<br />         .如果真 (计次 ＞ 取数组成员数 (返回数组))  ' 获取所有数组值完后跳出循环<br />             跳出循环 ()<br />         .如果真结束<br />         .计次循环首 (取数组成员数 (返回数组) － 计次, )  ' 真正意义的排除法去重复<br />             二计次 ＝ 二计次 ＋ 1<br />             .如果真 (返回数组 [计次] ＝ 返回数组 [计次 ＋ 二计次])  ' 从第一次循环获取到的所有值检查是否有重复项<br />                 删除成员 (返回数组, 计次 ＋ 二计次, )  ' 检查到，删除项<br />                 二计次 ＝ 二计次 － 1<br />             .如果真结束<br />             .如果真 (计次 ＋ 二计次 ＝ 取数组成员数 (返回数组))  ' 没有检查到<br />                 二计次 ＝ 0  ' 没有检查到跳出循环<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()  ' 去重复检查一次数组列表完毕<br />     .计次循环尾 ()  ' 去重复检查完毕<br /> .判断循环尾 ()  ' 完毕<br /> 返回 (取启动时间 () － 耗时)  ' 通过计算启动时间与现在时，获得消耗时，单位毫秒

小柠檬1

感谢楼主分享，正好需要

wjswzj0

感谢分享，很给力！~

weihong

打破0回复

LYForever

100多查看，零回复....