多个编辑框自动填入随机数字， 范围1-9，不重复数字少重复

woyao2991314

单击按钮 ，多个编辑框填入 随机数字， 范围1-9，不重复数字，多个编辑框1-9范围 重复难免，不会全部重新就好，高手帮写出现成的

jin1oo1

  

子程序名	返回值类型	公开	备 注
取不重复序号	文本型		比如：000,001,123,999
参数名	类 型	参考	可空	数组	备 注
起始数	文本型				界定获取随机不重复数字的最小值0
终止数	文本型				界定获取随机不重复数字的最大值999
数量	整数型				取出数量

变量名	类 型	静态	数组	备 注
临时值	整数型
数组	整数型		0
存在	逻辑型
计次	整数型
结果	文本型

如果真 (到整数 (终止数) － 到整数 (起始数) ＜ 数量)
返回 (“”)
置随机数种子 ()
循环判断首 ()
临时值 ＝ 取随机数 (到整数 (起始数), 到整数 (终止数))
计次循环首 (取数组成员数 (数组), 计次)
如果真 (数组 [计次] ＝ 临时值)
存在 ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (存在 ＝ 假)
加入成员 (数组, 临时值)
存在 ＝ 假
循环判断尾 (取数组成员数 (数组) ≠ 数量)
计次循环首 (数量, 计次)
结果 ＝ 结果 ＋ 取文本右边 (“00” ＋ 到文本 (数组 [计次]), 3) ＋ “ ”
计次循环尾 ()
返回 (结果)

.版本 2<br /> <br /> .子程序 取不重复序号, 文本型, 公开, 比如：000,001,123,999<br /> .参数 起始数, 文本型, , 界定获取随机不重复数字的最小值0<br /> .参数 终止数, 文本型, , 界定获取随机不重复数字的最大值999<br /> .参数 数量, 整数型, , 取出数量<br /> .局部变量 临时值, 整数型<br /> .局部变量 数组, 整数型, , "0"<br /> .局部变量 存在, 逻辑型<br /> .局部变量 计次, 整数型<br /> .局部变量 结果, 文本型<br /> <br /> <br /> .如果真 (到整数 (终止数) － 到整数 (起始数) ＜ 数量)<br />     返回 (“”)<br /> .如果真结束<br /> 置随机数种子 ()<br /> .循环判断首 ()<br /> <br />     临时值 ＝ 取随机数 (到整数 (起始数), 到整数 (终止数))<br />     .计次循环首 (取数组成员数 (数组), 计次)<br /> <br />         .如果真 (数组 [计次] ＝ 临时值)<br />             存在 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (存在 ＝ 假)<br />         加入成员 (数组, 临时值)<br />     .如果真结束<br />     存在 ＝ 假<br /> <br /> .循环判断尾 (取数组成员数 (数组) ≠ 数量)<br /> <br /> .计次循环首 (数量, 计次)<br />     结果 ＝ 结果 ＋ 取文本右边 (“00” ＋ 到文本 (数组 [计次]), 3) ＋ “ ”<br /> .计次循环尾 ()<br /> <br /> 返回 (结果)

woyao2991314

有十几个编辑框，需自动填入随机数，个位数的随机数，不要都是统一的数，少重复就好

fire9

https://bbs.125.la/forum.php?mod ... D%E9%87%8D%E5%A4%8D
https://bbs.125.la/forum.php?mod ... D%E9%87%8D%E5%A4%8D

ltais

文本_取随机范围数字 (1, 9, )

洋滨

文本_取出N组不重复数字 (数字, 9, 1, 9)

Uarala

  

变量名	类 型	静态	数组	备 注
随机数	文本型
全局_临时存储变量	文本型
编辑框	编辑框
编辑框数量	整数型
i	整数型
编辑框句柄	整数型

置随机数种子 ()
编辑框句柄 ＝ 寻找组件 (_启动窗口, “编辑框”, , , )
编辑框数量 ＝ 取找到组件数目 (编辑框句柄)
调试输出 (“编辑框数量”, 编辑框数量)
计次循环首 (编辑框数量, i)
编辑框 ＝ 取所找到组件 (编辑框句柄, i － 1)
判断循环首 (真)
随机数 ＝ 文本_取随机范围数字 (1, 9, )
判断 (寻找文本 (全局_临时存储变量, 随机数, , 假) ＝ -1)  ' 无限循环判断全局变量存储的随机数是否存在，不存在则添加到变量后跳出循环继续
全局_临时存储变量 ＝ 全局_临时存储变量 ＋ 随机数 ＋ “,”  ' 随机数不存在则加入到全局变量里
跳出循环 ()



判断循环尾 ()
编辑框.内容 ＝ 随机数
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 随机数, 文本型<br /> .局部变量 全局_临时存储变量, 文本型<br /> .局部变量 编辑框, 编辑框<br /> .局部变量 编辑框数量, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 编辑框句柄, 整数型<br /> <br /> 置随机数种子 ()<br /> 编辑框句柄 ＝ 寻找组件 (_启动窗口, “编辑框”, , , )<br /> 编辑框数量 ＝ 取找到组件数目 (编辑框句柄)<br /> 调试输出 (“编辑框数量”, 编辑框数量)<br /> .计次循环首 (编辑框数量, i)<br />     编辑框 ＝ 取所找到组件 (编辑框句柄, i － 1)<br />     .判断循环首 (真)<br />         随机数 ＝ 文本_取随机范围数字 (1, 9, )<br />         .判断开始 (寻找文本 (全局_临时存储变量, 随机数, , 假) ＝ -1)  ' 无限循环判断全局变量存储的随机数是否存在，不存在则添加到变量后跳出循环继续<br />             全局_临时存储变量 ＝ 全局_临时存储变量 ＋ 随机数 ＋ “,”  ' 随机数不存在则加入到全局变量里<br />             跳出循环 ()<br />         .默认<br /> <br />         .判断结束<br /> <br />     .判断循环尾 ()<br />     编辑框.内容 ＝ 随机数<br /> .计次循环尾 ()

大鹏520

简单的写了个例子