取不重复随机数

王筅笙

        感谢分享，很给力！~

396384183

新技能已get√

深圳梦

感谢分享，很给力！~

year1970

感谢分享

豆豆灰常开心

感谢发布原创作品，精易因你更精彩！6666666666666

查过

全都是大佬~

憨憨问号

确实，论坛里某个大佬不仅写的没有这个精简，还售价5精币，外加辱骂，还是楼主这个比较强

sunhechao

  

子程序名	返回值类型	公开	备 注
取不重复随机数	文本型		数组方式取出不重复的随机数，如果数组成员被取完了就返回空文本
参数名	类 型	参考	可空	数组	备 注
最小值	整数型				最小值从1开始
最大值	整数型
是否初始化	逻辑型

变量名	类 型	静态	数组	备 注
临时	整数型
随机数	整数型
i	整数型
数组	整数型		0
返回值	文本型			为什么要返回文本，因为取完了可以返回空文本呀

如果真 (是否初始化 ＝ 真)
清除数组 (数组)
变量循环首 (最小值, 最大值, 1, i)
加入成员 (数组, i)
变量循环尾 ()

判断 (取数组成员数 (数组) ＞ 0)
置随机数种子 ()
临时 ＝ 取随机数 (1, 取数组成员数 (数组))
随机数 ＝ 数组 [临时]
返回值 ＝ 到文本 (随机数)
删除成员 (数组, 临时, 1)
返回值 ＝ “”

返回 (返回值)

.版本 2<br /> <br /> .子程序 取不重复随机数, 文本型, 公开, 数组方式取出不重复的随机数，如果数组成员被取完了就返回空文本<br /> .参数 最小值, 整数型, , 最小值从1开始<br /> .参数 最大值, 整数型<br /> .参数 是否初始化, 逻辑型, 可空<br /> .局部变量 临时, 整数型<br /> .局部变量 随机数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 数组, 整数型, 静态, "0"<br /> .局部变量 返回值, 文本型, , , 为什么要返回文本，因为取完了可以返回空文本呀<br /> <br /> .如果真 (是否初始化 ＝ 真)<br />     清除数组 (数组)<br />     .变量循环首 (最小值, 最大值, 1, i)<br />         加入成员 (数组, i)<br />     .变量循环尾 ()<br /> .如果真结束<br /> <br /> .判断开始 (取数组成员数 (数组) ＞ 0)<br />     置随机数种子 ()<br />     临时 ＝ 取随机数 (1, 取数组成员数 (数组))<br />     随机数 ＝ 数组 [临时]<br />     返回值 ＝ 到文本 (随机数)<br />     删除成员 (数组, 临时, 1)<br /> .默认<br />     返回值 ＝ “”<br /> .判断结束<br /> <br /> 返回 (返回值)

大佬 这样合并成一个子程序 行不行

sunhechao

虽然能用屎山写出来，看看大佬都是怎么写的

静赏幽兰

顺序生成数组，随机读取并删除数组成员，盲猜