求大佬们帮写个筛选

aying1011

A里面有1 4 7
B里面有2 4 6
C里面有3 6 9

单里面有 1 4 7 9
双里面有2 4 6 8

小里面有 1234
大里面有 5678

我勾选a 单 大 的时候，编辑框里面显示7
我勾选c的时候，编辑框里面显示369，  也可以同时选AC
-------------------------
如果有指定数字的时候，比如12345
那么选择单的时候，只有135


谢谢大佬， 好人一生平安。  

孤独的小贱

加多几个按钮就好了。按钮1，单135679 双2468 小双 24 大单 579 自己加

Suky

很简单……但是

lisher

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
_A	整数型		3
_B	整数型		3
_C	整数型		3

_A ＝ { 1, 4, 7 }
_B ＝ { 2, 4, 6 }
_C ＝ { 3, 6, 9 }
调试输出 (“取单大：” ＋ 取数字 (_A, 真, 假, 假, 真), “取双小：” ＋ 取数字 (_B, 假, 真, 真, 假))
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
取数字	文本型
参数名	类 型	参考	可空	数组	备 注
数字	整数型
单	逻辑型
双	逻辑型
小	逻辑型
大	逻辑型

变量名	类 型	静态	数组	备 注
i	整数型
结果	整数型		0
返回文本	文本型

结果 ＝ {  }
如果真 (单 ＝ 真)
计次循环首 (取数组成员数 (数字), i)
如果真 (数字 [i] ％ 2 ≠ 0)
加入成员 (结果, 数字 [i])

计次循环尾 ()
计次循环首 (取数组成员数 (结果), i)
返回文本 ＝ 返回文本 ＋ 到文本 (结果 [i]) ＋ “,”
计次循环尾 ()
如果真 (双 ＝ 真)
计次循环首 (取数组成员数 (数字), i)
如果真 (数字 [i] ％ 2 ＝ 0)
加入成员 (结果, 数字 [i])

计次循环尾 ()
计次循环首 (取数组成员数 (结果), i)
返回文本 ＝ 返回文本 ＋ 到文本 (结果 [i]) ＋ “,”
计次循环尾 ()

判断 (单 ＝ 真 或 双 ＝ 真)
如果真 (小 ＝ 真)
数组排序 (结果, 真)
返回 (到文本 (结果 [1]))
如果真 (大 ＝ 真)
数组排序 (结果, 假)
返回 (到文本 (结果 [1]))




计次循环首 (取数组成员数 (结果), i)
返回文本 ＝ 返回文本 ＋ 到文本 (结果 [i]) ＋ “,”
计次循环尾 ()

返回 (返回文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 _A, 整数型, , "3"<br /> .局部变量 _B, 整数型, , "3"<br /> .局部变量 _C, 整数型, , "3"<br /> <br /> _A ＝ { 1, 4, 7 }<br /> _B ＝ { 2, 4, 6 }<br /> _C ＝ { 3, 6, 9 }<br /> <br /> 调试输出 (“取单大：” ＋ 取数字 (_A, 真, 假, 假, 真), “取双小：” ＋ 取数字 (_B, 假, 真, 真, 假))<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> <br /> <br /> .子程序 取数字, 文本型<br /> .参数 数字, 整数型, 数组<br /> .参数 单, 逻辑型<br /> .参数 双, 逻辑型<br /> .参数 小, 逻辑型<br /> .参数 大, 逻辑型<br /> .局部变量 i, 整数型<br /> .局部变量 结果, 整数型, , "0"<br /> .局部变量 返回文本, 文本型<br /> <br /> 结果 ＝ {  }<br /> .如果真 (单 ＝ 真)<br />     .计次循环首 (取数组成员数 (数字), i)<br />         .如果真 (数字 <i> ％ 2 ≠ 0)<br />             加入成员 (结果, 数字 <i>)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .计次循环首 (取数组成员数 (结果), i)<br />         返回文本 ＝ 返回文本 ＋ 到文本 (结果 <i>) ＋ “,”<br />     .计次循环尾 ()<br /> <br /> .如果真结束<br /> .如果真 (双 ＝ 真)<br />     .计次循环首 (取数组成员数 (数字), i)<br />         .如果真 (数字 <i> ％ 2 ＝ 0)<br />             加入成员 (结果, 数字 <i>)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br />     .计次循环首 (取数组成员数 (结果), i)<br />         返回文本 ＝ 返回文本 ＋ 到文本 (结果 <i>) ＋ “,”<br />     .计次循环尾 ()<br /> <br /> .如果真结束<br /> <br /> .判断开始 (单 ＝ 真 或 双 ＝ 真)<br /> <br />     .如果真 (小 ＝ 真)<br />         数组排序 (结果, 真)<br />         返回 (到文本 (结果 [1]))<br /> <br />     .如果真结束<br />     .如果真 (大 ＝ 真)<br />         数组排序 (结果, 假)<br />         返回 (到文本 (结果 [1]))<br /> <br />     .如果真结束<br /> <br /> <br /> .默认<br /> <br />     .计次循环首 (取数组成员数 (结果), i)<br /> <br />         返回文本 ＝ 返回文本 ＋ 到文本 (结果 <i>) ＋ “,”<br />     .计次循环尾 ()<br /> <br /> .判断结束<br /> <br /> 返回 (返回文本)