取随机数问题

成御

有13000个数据  如何随机取出3000个且不重复 简单点比较好哈

黑咖啡

随机取不重复数.e

憨憨问号

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
原始数组	整数型	0

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
i	整数型
接受结果	整数型		0

计次循环首 (13000, i)
加入成员 (原始数组, i)
计次循环尾 ()
调试输出 (“数组创建完毕”)
一万三数据取不重复 (原始数组, 3000, 接受结果)
调试输出 (接受结果)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
一万三数据取不重复			bilibili憨憨问号
参数名	类 型	参考	可空	数组	备 注
数组	整数型
个数	整数型
返回数组	整数型				用数组变量接收

变量名	类 型	静态	数组	备 注
结果	整数型
临时数组	整数型		0
i	整数型
随机	整数型

复制数组 (临时数组, 数组)
置随机数种子 ()
计次循环首 (个数, i)
随机 ＝ 汇编_取随机数 (1, 取数组成员数 (临时数组))
加入成员 (返回数组, 数组 [随机])
删除成员 (临时数组, 随机, 1)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
汇编_取随机数	整数型		汇编方式取随机数，最小数不能大于最大数，否则获取为0
参数名	类 型	参考	可空	数组	备 注
最小数	整数型
最大数	整数型

如果真 (最大数 ＜ 最小数)
返回 (0)
置入代码 ({ 81, 82, 15, 49, 185, 23, 0, 0, 0, 247, 225, 131, 192, 7, 139, 77, 12, 43, 77, 8, 65, 51, 210, 247, 241, 3, 85, 8, 139, 194, 90, 89, 201, 194, 8, 0 })
返回 (0)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> .程序集变量 原始数组, 整数型, , "0"<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 i, 整数型, 静态<br /> .局部变量 接受结果, 整数型, , "0"<br /> <br /> .计次循环首 (13000, i)<br />     加入成员 (原始数组, i)<br /> .计次循环尾 ()<br /> 调试输出 (“数组创建完毕”)<br /> 一万三数据取不重复 (原始数组, 3000, 接受结果)<br /> 调试输出 (接受结果)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 一万三数据取不重复, , , bilibili憨憨问号<br /> .参数 数组, 整数型, 数组<br /> .参数 个数, 整数型<br /> .参数 返回数组, 整数型, 参考 数组, 用数组变量接收<br /> .局部变量 结果, 整数型<br /> .局部变量 临时数组, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 随机, 整数型<br /> <br /> 复制数组 (临时数组, 数组)<br /> 置随机数种子 ()<br /> .计次循环首 (个数, i)<br />     随机 ＝ 汇编_取随机数 (1, 取数组成员数 (临时数组))<br />     加入成员 (返回数组, 数组 [随机])<br />     删除成员 (临时数组, 随机, 1)<br /> .计次循环尾 ()<br /> <br /> .子程序 汇编_取随机数, 整数型, , 汇编方式取随机数，最小数不能大于最大数，否则获取为0<br /> .参数 最小数, 整数型<br /> .参数 最大数, 整数型<br /> <br /> .如果真 (最大数 ＜ 最小数)<br />     返回 (0)<br /> .如果真结束<br /> 置入代码 ({ 81, 82, 15, 49, 185, 23, 0, 0, 0, 247, 225, 131, 192, 7, 139, 77, 12, 43, 77, 8, 65, 51, 210, 247, 241, 3, 85, 8, 139, 194, 90, 89, 201, 194, 8, 0 })<br /> 返回 (0)

凌哥

https://yuanqi.tencent.com/share/qblN4a07c4kX?shareId=e3735e5a223477a35b83bdd51a84234e

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

取随机不重复样本 ({ 1, 2, 3, 4, 5, 6, 7, 8, 9 }, 3)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
取随机不重复样本
参数名	类 型	参考	可空	数组	备 注
原始数组	整数型
取样数量	整数型

变量名	类 型	静态	数组	备 注
结果数组	整数型		0
剩余数	整数型
随机索引	整数型
i	整数型

置随机数种子 ()
剩余数 ＝ 取数组成员数 (原始数组)
重定义数组 (结果数组, 假, 取样数量)
计次循环首 (取样数量, i)
随机索引 ＝ 取随机数 (1, 剩余数)
结果数组 [i] ＝ 原始数组 [随机索引]
' 将已选元素与末尾交换
原始数组 [随机索引] ＝ 原始数组 [剩余数]
剩余数 ＝ 剩余数 － 1
计次循环尾 ()
调试输出 (结果数组)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 取随机不重复样本 ({ 1, 2, 3, 4, 5, 6, 7, 8, 9 }, 3)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 取随机不重复样本<br /> .参数 原始数组, 整数型, 数组<br /> .参数 取样数量, 整数型<br /> .局部变量 结果数组, 整数型, , "0"<br /> .局部变量 剩余数, 整数型<br /> .局部变量 随机索引, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 置随机数种子 ()<br /> 剩余数 ＝ 取数组成员数 (原始数组)<br /> 重定义数组 (结果数组, 假, 取样数量)<br /> .计次循环首 (取样数量, i)<br />     随机索引 ＝ 取随机数 (1, 剩余数)<br />     结果数组 <i> ＝ 原始数组 [随机索引]<br />     ' 将已选元素与末尾交换<br />     原始数组 [随机索引] ＝ 原始数组 [剩余数]<br />     剩余数 ＝ 剩余数 － 1<br /> .计次循环尾 ()<br /> 调试输出 (结果数组)