取出数组随机N个成员，不能重复取。有没有函数方法

q2902044156

四叔

  

子程序名	返回值类型	公开	备 注
数组_取出N个成员	逻辑型		成功返回真，失败返回假
参数名	类 型	参考	可空	数组	备 注
源数组	文本型
取出的成员数组	文本型				取出的N个成员放在这个数组里
欲取出的成员个数	整数型

变量名	类 型	静态	数组	备 注
临时位置	整数型
i	整数型

置随机数种子 ()
重定义数组 (取出的成员数组, 假, 欲取出的成员个数)  ' //定义数组成员数
如果真 (欲取出的成员个数 ＞ 取数组成员数 (源数组))  ' //判断源数组成员数是否足够取出
调试输出 (“错误，源数组成员数少于” ＋ 到文本 (欲取出的成员个数))
返回 (假)
计次循环首 (欲取出的成员个数, i)
临时位置 ＝ 取随机数 (1, 取数组成员数 (源数组))  ' //从源数组里随机取一个成员的位置
取出的成员数组 [i] ＝ 源数组 [临时位置]  ' //取出成员
调试输出 (取出的成员数组 [i])  ' //输出成员内容
删除成员 (源数组, 临时位置, 1)  ' //删除源数组成员，下次循环就不会被重复取到了
计次循环尾 ()
调试输出 (取出的成员数组)
返回 (真)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 数组_取出N个成员, 逻辑型, , 成功返回真，失败返回假<br /> .参数 源数组, 文本型, 数组<br /> .参数 取出的成员数组, 文本型, 参考 数组, 取出的N个成员放在这个数组里<br /> .参数 欲取出的成员个数, 整数型<br /> .局部变量 临时位置, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 置随机数种子 ()<br /> 重定义数组 (取出的成员数组, 假, 欲取出的成员个数)  ' //定义数组成员数<br /> .如果真 (欲取出的成员个数 ＞ 取数组成员数 (源数组))  ' //判断源数组成员数是否足够取出<br />     调试输出 (“错误，源数组成员数少于” ＋ 到文本 (欲取出的成员个数))<br />     返回 (假)<br /> .如果真结束<br /> .计次循环首 (欲取出的成员个数, i)<br />     临时位置 ＝ 取随机数 (1, 取数组成员数 (源数组))  ' //从源数组里随机取一个成员的位置<br />     取出的成员数组 <i> ＝ 源数组 [临时位置]  ' //取出成员<br />     调试输出 (取出的成员数组 <i>)  ' //输出成员内容<br />     删除成员 (源数组, 临时位置, 1)  ' //删除源数组成员，下次循环就不会被重复取到了<br /> .计次循环尾 ()<br /> 调试输出 (取出的成员数组)<br /> 返回 (真)

不需要模块


补充内容 (2019-10-17 07:33):
补充，上传代码之后，参数的属性都没了。
参数1                 数组√
参数2     参考√   数组√

寒潮

  

变量名	类 型	静态	数组	备 注
局_数组	文本型		0
局_欲取数据个数	整数型
局_个数数组	整数型		0
局_计次	整数型
局_成员位置	整数型
局_预取数据	文本型

局_数组 ＝ {  }  ' 自定义数组成员个数
局_欲取数据个数 ＝ 10
如果真 (局_欲取数据个数 ≥ 取数组成员数 (局_数组))
' 这里就全部取回
返回 ()
文本_取出N组不重复数字 (局_个数数组, 局_欲取数据个数, 1, 取数组成员数 (局_数组))  ' 精易模块命令
局_预取数据 ＝ “”
计次循环首 (取数组成员数 (局_个数数组), 局_计次)
局_成员位置 ＝ 局_个数数组 [局_计次]
如果真 (局_预取数据 ≠ “”)
局_预取数据 ＝ 局_预取数据 ＋ “,”
局_预取数据 ＝ 局_预取数据 ＋ 局_数组 [局_成员位置]
计次循环尾 ()
调试输出 (局_预取数据)  ' 用,分割的文本字符串

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 局_数组, 文本型, , "0"<br /> .局部变量 局_欲取数据个数, 整数型<br /> .局部变量 局_个数数组, 整数型, , "0"<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_成员位置, 整数型<br /> .局部变量 局_预取数据, 文本型<br /> <br /> 局_数组 ＝ {  }  ' 自定义数组成员个数<br /> 局_欲取数据个数 ＝ 10<br /> .如果真 (局_欲取数据个数 ≥ 取数组成员数 (局_数组))<br />     ' 这里就全部取回<br />     返回 ()<br /> .如果真结束<br /> 文本_取出N组不重复数字 (局_个数数组, 局_欲取数据个数, 1, 取数组成员数 (局_数组))  ' 精易模块命令<br /> 局_预取数据 ＝ “”<br /> .计次循环首 (取数组成员数 (局_个数数组), 局_计次)<br />     局_成员位置 ＝ 局_个数数组 [局_计次]<br />     .如果真 (局_预取数据 ≠ “”)<br />         局_预取数据 ＝ 局_预取数据 ＋ “,”<br />     .如果真结束<br />     局_预取数据 ＝ 局_预取数据 ＋ 局_数组 [局_成员位置]<br /> .计次循环尾 ()<br /> 调试输出 (局_预取数据)  ' 用,分割的文本字符串