取随机不重复

a393198821

1.取随机数0-9（0123456789）2.设定随机数的长度
3.分别放在4个编辑框里面
4.每组都不有重复例如“2214564”这样的就是属于重复的号码

取随机数长度“6”
按钮1点击
编辑框分别是6个随机数

冯古屋

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

编辑框2.内容 ＝ GetRand (到数值 (编辑框1.内容))
编辑框3.内容 ＝ GetRand (到数值 (编辑框1.内容))
编辑框4.内容 ＝ GetRand (到数值 (编辑框1.内容))
编辑框5.内容 ＝ GetRand (到数值 (编辑框1.内容))

子程序名	返回值类型	公开	备 注
GetRand	文本型
参数名	类 型	参考	可空	数组	备 注
len

变量名	类 型	静态	数组	备 注
sz	整数型		0
i	整数型
rand	文本型

sz ＝ { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 }
置随机数种子 ()
如果真 (len ＞ 取数组成员数 (sz))
返回 (“error”)
计次循环首 (len, )
i ＝ 取随机数 (1, 取数组成员数 (sz))
rand ＝ rand ＋ 到文本 (sz [i])
删除成员 (sz, i, 1)
计次循环尾 ()
返回 (rand)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框2.内容 ＝ GetRand (到数值 (编辑框1.内容))<br /> 编辑框3.内容 ＝ GetRand (到数值 (编辑框1.内容))<br /> 编辑框4.内容 ＝ GetRand (到数值 (编辑框1.内容))<br /> 编辑框5.内容 ＝ GetRand (到数值 (编辑框1.内容))<br /> <br /> <br /> .子程序 GetRand, 文本型<br /> .参数 len<br /> .局部变量 sz, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 rand, 文本型<br /> <br /> <br /> sz ＝ { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 }<br /> 置随机数种子 ()<br /> .如果真 (len ＞ 取数组成员数 (sz))<br />     返回 (“error”)<br /> .如果真结束<br /> .计次循环首 (len, )<br /> <br />     i ＝ 取随机数 (1, 取数组成员数 (sz))<br />     rand ＝ rand ＋ 到文本 (sz <i>)<br />     删除成员 (sz, i, 1)<br /> .计次循环尾 ()<br /> 返回 (rand)

yunying

小小的例子

寒潮

补充内容 (2019-12-26 16:11):
精易模块

yunying

理解错了，这样的话不能超过10位。

CKang

做好啦，下载附件查看

jackliuwenli

CKang

  

子程序名	返回值类型	公开	备 注
子程序1	文本型

变量名	类 型	静态	数组	备 注
临时	文本型
数组	整数型		0
计次变量	整数型
随机位置	整数型

计次循环首 (10, 计次变量)
加入成员 (数组, 计次变量 － 1)
计次循环尾 ()
计次循环首 (到整数 (编辑框1.内容), 计次变量)
置随机数种子 ()
随机位置 ＝ 取随机数 (1, 取数组成员数 (数组))  ' 取出的随机数是数组成员的位置
临时 ＝ 临时 ＋ 到文本 (数组 [随机位置])
删除成员 (数组, 随机位置, 1)  ' 取出后删除这个成员，下次就不会再取相同的数了
计次循环尾 ()
返回 (临时)

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

编辑框2.加入文本 (子程序1 ())
编辑框3.加入文本 (子程序1 ())
编辑框4.加入文本 (子程序1 ())
编辑框5.加入文本 (子程序1 ())

.版本 2<br /> <br /> .子程序 子程序1, 文本型<br /> .局部变量 临时, 文本型<br /> .局部变量 数组, 整数型, , "0"<br /> .局部变量 计次变量, 整数型<br /> .局部变量 随机位置, 整数型<br /> <br /> <br /> .计次循环首 (10, 计次变量)<br />     加入成员 (数组, 计次变量 － 1)<br /> .计次循环尾 ()<br /> <br /> .计次循环首 (到整数 (编辑框1.内容), 计次变量)<br />     置随机数种子 ()<br />     随机位置 ＝ 取随机数 (1, 取数组成员数 (数组))  ' 取出的随机数是数组成员的位置<br />     临时 ＝ 临时 ＋ 到文本 (数组 [随机位置])<br />     删除成员 (数组, 随机位置, 1)  ' 取出后删除这个成员，下次就不会再取相同的数了<br /> .计次循环尾 ()<br /> <br /> 返回 (临时)<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> <br /> 编辑框2.加入文本 (子程序1 ())<br /> 编辑框3.加入文本 (子程序1 ())<br /> 编辑框4.加入文本 (子程序1 ())<br /> 编辑框5.加入文本 (子程序1 ())