文本_取随机不重复数字 新增

jr21066

好象求助区还经常有人用.模块里没有这个命令.

  

子程序名	返回值类型	公开	备 注
文本_取随机不重复数字	逻辑型		生成多组不重复数字文本,前边补零,保持文本位数相同
参数名	类 型	参考	可空	数组	备 注
生成位数	整数型				需要生成的文本位数
生成个数	整数型				返回多少组文本
文本数组	文本型				文本数组参数,用来存放结果

变量名	类 型	静态	数组	备 注
表数组	文本型		0
表个数	整数型
计数器	整数型
文本填充符	文本型
计数	整数型

表个数 ＝ 1
' 文本补零
文本填充符 ＝ 取重复文本 (生成位数, “0”)
' 计算表总大小
计次循环首 (生成位数, )
表个数 ＝ 表个数 × 10
计次循环尾 ()
' 参数错误时直接返回
如果真 (生成个数 ＞ 表个数)
返回 (假)
' 生成文本表
计次循环首 (表个数, 计数器)
加入成员 (表数组, 取文本右边 (文本填充符 ＋ 到文本 (计数器 － 1), 生成位数))
计次循环尾 ()
' 随机取表文本并删除已使用
计次循环首 (生成个数, 计数器)
计数 ＝ 汇编_取随机数 (1, 取数组成员数 (表数组))
加入成员 (文本数组, 表数组 [计数])
删除成员 (表数组, 计数, )
计次循环尾 ()
' 成功返回真
如果 (取数组成员数 (文本数组) ≠ 生成个数)
返回 (假)
返回 (真)

.版本 2<br /> <br /> .子程序 文本_取随机不重复数字, 逻辑型, , 生成多组不重复数字文本,前边补零,保持文本位数相同<br /> .参数 生成位数, 整数型, , 需要生成的文本位数<br /> .参数 生成个数, 整数型, , 返回多少组文本<br /> .参数 文本数组, 文本型, 数组, 文本数组参数,用来存放结果<br /> .局部变量 表数组, 文本型, , "0"<br /> .局部变量 表个数, 整数型<br /> .局部变量 计数器, 整数型<br /> .局部变量 文本填充符, 文本型<br /> .局部变量 计数, 整数型<br /> <br /> 表个数 ＝ 1<br /> ' 文本补零<br /> 文本填充符 ＝ 取重复文本 (生成位数, “0”)<br /> ' 计算表总大小<br /> .计次循环首 (生成位数, )<br />     表个数 ＝ 表个数 × 10<br /> .计次循环尾 ()<br /> ' 参数错误时直接返回<br /> .如果真 (生成个数 ＞ 表个数)<br />     返回 (假)<br /> .如果真结束<br /> ' 生成文本表<br /> .计次循环首 (表个数, 计数器)<br />     加入成员 (表数组, 取文本右边 (文本填充符 ＋ 到文本 (计数器 － 1), 生成位数))<br /> .计次循环尾 ()<br /> ' 随机取表文本并删除已使用<br /> .计次循环首 (生成个数, 计数器)<br />     计数 ＝ 汇编_取随机数 (1, 取数组成员数 (表数组))<br />     加入成员 (文本数组, 表数组 [计数])<br />     删除成员 (表数组, 计数, )<br /> .计次循环尾 ()<br /> ' 成功返回真<br /> .如果 (取数组成员数 (文本数组) ≠ 生成个数)<br />     返回 (假)<br /> .否则<br />     返回 (真)<br /> .如果结束

广告推广秦冷烨

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶多

47477948

学习一下，支持楼主