请教大神去随机数，怎么循环取

有梦就追

取随机数字，如何从1到100循环随机取出30个数字，然后不要11,19,21,29这些数字， 然后保存到编辑框里面。

求源码

鹊聪软件

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

编辑框1.内容 ＝ 取30个随机数 ()

子程序名	返回值类型	公开	备 注
取30个随机数	文本型

变量名	类 型	静态	数组	备 注
i	整数型
all	整数型		0
str	文本型
n	整数型

计次循环首 (100, i)
如果真 (i ＝ 11 或 i ＝ 19 或 i ＝ 21 或 i ＝ 29)
到循环尾 ()
加入成员 (all, i)
计次循环尾 ()
置随机数种子 ()
计次循环首 (30, )
n ＝ 取随机数 (1, 取数组成员数 (all))
str ＝ str ＋ 到文本 (all [n]) ＋ “,”
删除成员 (all, n, )
计次循环尾 ()
返回 (取文本左边 (str, 取文本长度 (str) － 1))

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框1.内容 ＝ 取30个随机数 ()<br /> <br /> .子程序 取30个随机数, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 all, 整数型, , "0"<br /> .局部变量 str, 文本型<br /> .局部变量 n, 整数型<br /> <br /> .计次循环首 (100, i)<br />     .如果真 (i ＝ 11 或 i ＝ 19 或 i ＝ 21 或 i ＝ 29)<br />         到循环尾 ()<br />     .如果真结束<br />     加入成员 (all, i)<br /> .计次循环尾 ()<br /> 置随机数种子 ()<br /> .计次循环首 (30, )<br />     n ＝ 取随机数 (1, 取数组成员数 (all))<br />     str ＝ str ＋ 到文本 (all [n]) ＋ “,”<br />     删除成员 (all, n, )<br /> .计次循环尾 ()<br /> 返回 (取文本左边 (str, 取文本长度 (str) － 1))

1.e (3.34 KB, 下载次数: 0)

2020-3-25 17:53 上传

点击文件名下载附件


补充内容 (2020-3-25 17:55):
抽牌算法,1-100取出30个不重复随机数,排除 11 19 21 29

Bszk

1.e (3.03 KB, 下载次数: 8)

2020-3-25 17:09 上传

点击文件名下载附件
去学基础吧。