取随机数的问题

794532121

比如编辑框1  有  0123456789
编辑框2  有  0  2  4   78



去除重复的内容  剩下13569   在这五个数字里面随机取一个

这样的写法有什么简洁点的吗 我写了N个循环 运行起来好卡

haoren1212

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
正则	正则表达式类

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

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

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

文本 ＝ 编辑框1.内容
正则.创建 (“[0-9]”, 编辑框2.内容, , , , )
计次循环首 (正则.取匹配数量 (), i)
文本 ＝ 文本_替换 (文本, , , , 正则.取匹配文本 (i, ), “”, , , , , , , , )
计次循环尾 ()
调试输出 (文本)
返回 (文本)

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

正则.创建 (“[0-9]”, _按钮1_被单击 (), , , , )
调试输出 (正则.取匹配文本 (取随机数 (1, 正则.取匹配数量 ()), ))

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 正则, 正则表达式类<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 文本 ＝ 编辑框1.内容<br /> 正则.创建 (“[0-9]”, 编辑框2.内容, , , , )<br /> .计次循环首 (正则.取匹配数量 (), i)<br />     文本 ＝ 文本_替换 (文本, , , , 正则.取匹配文本 (i, ), “”, , , , , , , , )<br /> .计次循环尾 ()<br /> 调试输出 (文本)<br /> 返回 (文本)<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 正则.创建 (“[0-9]”, _按钮1_被单击 (), , , , )<br /> <br /> 调试输出 (正则.取匹配文本 (取随机数 (1, 正则.取匹配数量 ()), ))

浅黑

如此这般，采纳请设置最佳

  

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

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

A数组无重复 ()
A方法有重复 ()

子程序名	返回值类型	公开	备 注
A数组无重复

变量名	类 型	静态	数组	备 注
A	整数型		0
B	整数型		0
i	整数型
j	整数型

A ＝ { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 }
B ＝ { 0, 2, 4, 7, 8 }
计次循环首 (取数组成员数 (B), i)
计次循环首 (取数组成员数 (A), j)
如果真 (B [i] ＝ A [j])
删除成员 (A, j, )
跳出循环 ()

计次循环尾 ()
计次循环尾 ()
调试输出 (A)
置随机数种子 ()
调试输出 (A [取随机数 (1, 取数组成员数 (A))])

子程序名	返回值类型	公开	备 注
A方法有重复

变量名	类 型	静态	数组	备 注
A	整数型		0
B	整数型		0
i	整数型
j	整数型

A ＝ { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 }
B ＝ { 0, 2, 4, 7, 8 }
循环判断首 ()
i ＝ i ＋ 1
计次循环首 (取数组成员数 (B), j)
如果真 (B [j] ＝ A [i])
删除成员 (A, i, )
i ＝ i － 1
跳出循环 ()

计次循环尾 ()
循环判断尾 (i ≠ 取数组成员数 (A))
调试输出 (A)
置随机数种子 ()
调试输出 (A [取随机数 (1, 取数组成员数 (A))])

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> A数组无重复 ()<br /> A方法有重复 ()<br /> <br /> .子程序 A数组无重复<br /> .局部变量 A, 整数型, , "0"<br /> .局部变量 B, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> <br /> A ＝ { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 }<br /> B ＝ { 0, 2, 4, 7, 8 }<br /> <br /> .计次循环首 (取数组成员数 (B), i)<br /> <br />     .计次循环首 (取数组成员数 (A), j)<br /> <br />         .如果真 (B <i> ＝ A [j])<br />             删除成员 (A, j, )<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> .计次循环尾 ()<br /> 调试输出 (A)<br /> <br /> <br /> 置随机数种子 ()<br /> 调试输出 (A [取随机数 (1, 取数组成员数 (A))])<br /> <br /> .子程序 A方法有重复<br /> .局部变量 A, 整数型, , "0"<br /> .局部变量 B, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> <br /> A ＝ { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 }<br /> B ＝ { 0, 2, 4, 7, 8 }<br /> <br /> .循环判断首 ()<br />     i ＝ i ＋ 1<br /> <br />     .计次循环首 (取数组成员数 (B), j)<br /> <br />         .如果真 (B [j] ＝ A <i>)<br />             删除成员 (A, i, )<br />             i ＝ i － 1<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> .循环判断尾 (i ≠ 取数组成员数 (A))<br /> <br /> 调试输出 (A)<br /> <br /> 置随机数种子 ()<br /> 调试输出 (A [取随机数 (1, 取数组成员数 (A))])

补充内容 (2024-10-10 03:08):
子程序名敲错了，不是A方法有重复，是A数组有重复，凑合看吧，不影响

jtg827

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 A, 文本型
.局部变量 B, 文本型
.局部变量 计次, 整数型
.局部变量 字符数, 整数型
.局部变量 随机数, 整数型
.局部变量 取出字符, 文本型

A ＝ “0123456789”
B ＝ “02478”
.计次循环首 (取文本长度 (B), 计次)
    A ＝ 子文本替换 (A, 取文本中间 (B, 计次, 1), “”, , , 真)
.计次循环尾 ()
字符数 ＝ 取文本长度 (A)
随机数 ＝ 取随机数 (1, 字符数)
取出字符 ＝ 取文本中间 (A, 随机数, 1)
调试输出 (取出字符)

794532121

jtg827 发表于 2024-10-10 03:10
.版本 2
.支持库 spec

好像模块有个文本去重功能 但是我不会用

794532121

浅黑 发表于 2024-10-10 03:06
如此这般，采纳请设置最佳

[e=0].版本 2

好像模块有个文本去重功能 但是我不会用

浅黑

794532121 发表于 2024-10-10 03:27
好像模块有个文本去重功能 但是我不会用

问题你这不是去重啊，你这是取差集