如不要回帖了）何从000-999中取出随机数目的不重复的随机数（快速，最好是汇编，慢...

hzc123 · 发表于 2019-4-27 20:54:45

从000-999中取出随机数目的不重复的随机数（快速，最好是汇编，慢的就不要了）

已注销449444 · 发表于 2019-4-27 20:59:54

置随机数种子（）

i  整数型  数组0
ii  整数型
iii  整数型
加入成员(i，取随机数（0,999）)
计次循环头（取数组成员数（i），ii）
iii=取随机数（0,999）
如果真（iii≠i[ii]）
信息框（“不重复，加入”）
加入成员(i，iii)计次循环尾巴

求最佳

hzc123 · 发表于 2019-4-27 21:04:51

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

i 整数型数组0

你那个是取了1个

已注销449444 · 发表于 2019-4-27 21:05:20

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

你计次循环一下不就可以了么

hzc123 · 发表于 2019-4-27 21:05:25

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

.版本 2
.支持库 commobj

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

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

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

冯古屋 · 发表于 2019-4-27 21:05:57

一键生成6位数全部数据从000000到999999生成
http://bbs.125.la/forum.php?mod=viewthread&tid=13861979
(出处: 精易论坛)

已注销449444 · 发表于 2019-4-27 21:06:16

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

置随机数种子（）

i  整数型  数组0
ii  整数型
iii  整数型
【计次循环头（取随机数）】
加入成员(i，取随机数（0,999）)
计次循环头（取数组成员数（i），ii）
iii=取随机数（0,999）
如果真（iii≠i[ii]）
信息框（“不重复，加入”）
加入成员(i，iii)计次循环尾巴
【尾巴】

你的猫 · 发表于 2019-4-27 21:33:49

111111111111111111.e (4.57 KB, 下载次数: 24)

nauhccx · 发表于 2022-6-6 11:41:48

取出后判断是否存心！不存在就显示

gandambera · 发表于 2022-10-9 23:10:34

你自己不结帖为啥不让人回帖https://bbs.125.la/forum.php?mod ... F%E6%9C%BA%E6%95%B0

		自动登录	找回密码
密码			注册

[求助] 如不要回帖了）何从000-999中取出随机数目的不重复的随机数（快速，最好是汇编，慢...