精易论坛

标题: 如不要回帖了）何从000-999中取出随机数目的不重复的随机数（快速，最好是汇编，慢... [打印本页]

作者: hzc123 时间: 2019-4-27 20:54
标题: 如不要回帖了）何从000-999中取出随机数目的不重复的随机数（快速，最好是汇编，慢...
从000-999中取出随机数目的不重复的随机数（快速，最好是汇编，慢的就不要了）

作者: 已注销449444 时间: 2019-4-27 20:59
提示: 作者被禁止或删除内容自动屏蔽

作者: hzc123 时间: 2019-4-27 21:04

丢失的勇气发表于 2019-4-27 20:59
置随机数种子（）

i 整数型数组0

你那个是取了1个

作者: 已注销449444 时间: 2019-4-27 21:05
提示: 作者被禁止或删除内容自动屏蔽

作者: hzc123 时间: 2019-4-27 21:05

hzc123 发表于 2019-4-27 21:04
你那个是取了1个

.版本 2
.支持库 commobj

.子程序子程序_取不重复随机大底, 文本型
.参数参_数量, 整数型
.局部变量数组, 整数型, , "1000", 存放两个范围之间的数字
.局部变量计次变量, 整数型
.局部变量随机位置, 整数型
.局部变量数量, 整数型
.局部变量快速, 快速文本对象
.局部变量数组_结果, 整数型, , "0"

' 接收输入的数值
数量＝参_数量
.计次循环首 (1000, 计次变量)  ' 初始化范围
数组 [计次变量] ＝计次变量
.计次循环尾 ()
' 本源码来自易语言资源网(www.5A5X.com)
置随机数种子 ()
.计次循环首 (数量, 计次变量)  ' 要取几个数就循环几次
随机位置＝汇编_取随机数 (1, 取数组成员数 (数组))  ' 取出的随机数是数组的成员位置
' 输出调试文本 (数组 [随机位置])
加入成员 (数组_结果, 数组 [随机位置])
删除成员 (数组, 随机位置, 1)  ' 取出后要删除这个成员，下次就不会再取相同的数字了

.计次循环尾 ()
.计次循环首 (取数组成员数 (数组_结果), 计次变量)
快速.添加 (数组_全 [数组_结果 [计次变量]] ＋ “ ”)
.计次循环尾 ()
返回 (快速.取文本 (, ))

作者: 冯古屋 时间: 2019-4-27 21:05
一键生成6位数全部数据从000000到999999生成
http://125.confly.eu.org/forum.php?mod=viewthread&tid=13861979
(出处: 精易论坛)

作者: 已注销449444 时间: 2019-4-27 21:06
提示: 作者被禁止或删除内容自动屏蔽

作者: 你的猫 时间: 2019-4-27 21:33

111111111111111111.e (4.57 KB, 下载次数: 24) 取随机不重复？

作者: nauhccx 时间: 2022-6-6 11:41
取出后判断是否存心！不存在就显示

作者: gandambera 时间: 2022-10-9 23:10
你自己不结帖为啥不让人回帖https://125.confly.eu.org/forum.php?mod ... F%E6%9C%BA%E6%95%B0

欢迎光临精易论坛 (https://125.confly.eu.org/)