QQ网名大全

易语言取不重复随机数

.版本 2

.子程序 取随机数字, 文本型
.参数 个数, 整数型
.局部变量 去重复, 节点
.局部变量 a, 文本型
.局部变量 i, 整数型
.局部变量 str, 文本型

置随机数种子 ()
.判断循环首 (i ≤ 个数)
a = 到文本 (取随机数 (1, 53))
.如果真 (去重复.加入属性 (a, 真))

i = i + 1
.如果真 (i = 个数)
str = str + 取文本右边 (“00” + 到文本 (a), 2)
跳出循环 ()
.如果真结束
str = str + 取文本右边 (“00” + 到文本 (a), 2) + “,”
.如果真结束

.判断循环尾 ()
返回 (str)

个数参数是让你输入取的个数
佚名
2024-06-01 20:56:19
最佳回答
类似问题(10)