精易论坛

标题: 请各位老师帮忙看看是哪里写错了， [打印本页]

---

作者: hxw555    时间: 8 小时前
标题: 请各位老师帮忙看看是哪里写错了，

  

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

子程序名	返回值类型	公开	备 注
读取勾选后区
参数名	类 型	参考	可空	数组	备 注
勾选号码数组	文本型				"0", 真

清除数组 (勾选号码数组)
如果真 (选择框01.选中)
加入成员 (勾选号码数组, “01”)
如果真 (选择框02.选中)
加入成员 (勾选号码数组, “02”)
如果真 (选择框03.选中)
加入成员 (勾选号码数组, “03”)
如果真 (选择框04.选中)
加入成员 (勾选号码数组, “04”)
如果真 (选择框05.选中)
加入成员 (勾选号码数组, “05”)
如果真 (选择框06.选中)
加入成员 (勾选号码数组, “06”)
如果真 (选择框07.选中)
加入成员 (勾选号码数组, “07”)
如果真 (选择框08.选中)
加入成员 (勾选号码数组, “08”)
如果真 (选择框09.选中)
加入成员 (勾选号码数组, “09”)
如果真 (选择框10.选中)
加入成员 (勾选号码数组, “10”)
如果真 (选择框11.选中)
加入成员 (勾选号码数组, “11”)
如果真 (选择框12.选中)
加入成员 (勾选号码数组, “12”)

子程序名	返回值类型	公开	备 注
清理屏蔽文本
参数名	类 型	参考	可空	数组	备 注
原始文本	文本型
干净屏蔽数组	文本型				"0", 真

变量名	类 型	静态	数组	备 注
分行数组	文本型		0
单行	文本型
下标	整数型

清除数组 (干净屏蔽数组)
分行数组 ＝ 分割文本 (原始文本, #换行符, )
计次循环首 (取数组成员数 (分行数组), 下标)
单行 ＝ 删首尾空 (分行数组 [下标])
单行 ＝ 子文本替换 (单行, “ ”, “”, , 真, 真)
如果真 (单行 ≠ “”)
加入成员 (干净屏蔽数组, 单行)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
过滤生成两码
参数名	类 型	参考	可空	数组	备 注
源号码数组	文本型				"0"
屏蔽数组	文本型				"0"
合法组合数组	文本型				"0", 真

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型
组合文本	文本型
被屏蔽	逻辑型
k	整数型

清除数组 (合法组合数组)
计次循环首 (取数组成员数 (源号码数组), i)
计次循环首 (取数组成员数 (源号码数组), j)
如果真 (j ＞ i)
组合文本 ＝ 源号码数组 [i] ＋ “ ” ＋ 源号码数组 [j]
被屏蔽 ＝ 假
计次循环首 (取数组成员数 (屏蔽数组), k)
如果真 (屏蔽数组 [k] ＝ 组合文本)
被屏蔽 ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (被屏蔽 ＝ 假)
加入成员 (合法组合数组, 组合文本)


计次循环尾 ()
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
勾选号码	文本型		0
屏蔽列表	文本型		0
可用组合	文本型		0
输出全部	文本型
下标	整数型

读取勾选后区 (勾选号码)
如果真 (取数组成员数 (勾选号码) ＜ 2)
信息框 (“请至少勾选2个后区数字”, 0, “提示”, )
返回 ()

清理屏蔽文本 (编辑框_屏蔽两码.内容, 屏蔽列表)
过滤生成两码 (勾选号码, 屏蔽列表, 可用组合)
如果真 (取数组成员数 (可用组合) ＝ 0)
编辑框_输出组合.内容 ＝ “无可用组合，全部被屏蔽”
返回 ()

输出全部 ＝ “”
计次循环首 (取数组成员数 (可用组合), 下标)
输出全部 ＝ 输出全部 ＋ 可用组合 [下标] ＋ #换行符
计次循环尾 ()
编辑框_输出组合.内容 ＝ 输出全部

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 读取勾选后区<br /> .参数 勾选号码数组, 文本型, 参考 数组, "0", 真<br /> <br /> 清除数组 (勾选号码数组)<br /> .如果真 (选择框01.选中)<br />     加入成员 (勾选号码数组, “01”)<br /> .如果真结束<br /> .如果真 (选择框02.选中)<br />     加入成员 (勾选号码数组, “02”)<br /> .如果真结束<br /> .如果真 (选择框03.选中)<br />     加入成员 (勾选号码数组, “03”)<br /> .如果真结束<br /> .如果真 (选择框04.选中)<br />     加入成员 (勾选号码数组, “04”)<br /> .如果真结束<br /> .如果真 (选择框05.选中)<br />     加入成员 (勾选号码数组, “05”)<br /> .如果真结束<br /> .如果真 (选择框06.选中)<br />     加入成员 (勾选号码数组, “06”)<br /> .如果真结束<br /> .如果真 (选择框07.选中)<br />     加入成员 (勾选号码数组, “07”)<br /> .如果真结束<br /> .如果真 (选择框08.选中)<br />     加入成员 (勾选号码数组, “08”)<br /> .如果真结束<br /> .如果真 (选择框09.选中)<br />     加入成员 (勾选号码数组, “09”)<br /> .如果真结束<br /> .如果真 (选择框10.选中)<br />     加入成员 (勾选号码数组, “10”)<br /> .如果真结束<br /> .如果真 (选择框11.选中)<br />     加入成员 (勾选号码数组, “11”)<br /> .如果真结束<br /> .如果真 (选择框12.选中)<br />     加入成员 (勾选号码数组, “12”)<br /> .如果真结束<br /> <br /> <br /> .子程序 清理屏蔽文本<br /> .参数 原始文本, 文本型<br /> .参数 干净屏蔽数组, 文本型, , "0", 真<br /> .局部变量 分行数组, 文本型, , "0"<br /> .局部变量 单行, 文本型<br /> .局部变量 下标, 整数型<br /> <br /> 清除数组 (干净屏蔽数组)<br /> 分行数组 ＝ 分割文本 (原始文本, #换行符, )<br /> .计次循环首 (取数组成员数 (分行数组), 下标)<br />     单行 ＝ 删首尾空 (分行数组 [下标])<br />     单行 ＝ 子文本替换 (单行, “ ”, “”, , 真, 真)<br />     .如果真 (单行 ≠ “”)<br />         加入成员 (干净屏蔽数组, 单行)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 过滤生成两码<br /> .参数 源号码数组, 文本型, , "0"<br /> .参数 屏蔽数组, 文本型, , "0"<br /> .参数 合法组合数组, 文本型, , "0", 真<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 组合文本, 文本型<br /> .局部变量 被屏蔽, 逻辑型<br /> .局部变量 k, 整数型<br /> <br /> 清除数组 (合法组合数组)<br /> .计次循环首 (取数组成员数 (源号码数组), i)<br />     .计次循环首 (取数组成员数 (源号码数组), j)<br />         .如果真 (j ＞ i)<br />             组合文本 ＝ 源号码数组 <i> ＋ “ ” ＋ 源号码数组 [j]<br />             被屏蔽 ＝ 假<br />             .计次循环首 (取数组成员数 (屏蔽数组), k)<br />                 .如果真 (屏蔽数组 [k] ＝ 组合文本)<br />                     被屏蔽 ＝ 真<br />                     跳出循环 ()<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />             .如果真 (被屏蔽 ＝ 假)<br />                 加入成员 (合法组合数组, 组合文本)<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮_生成_被单击<br /> .局部变量 勾选号码, 文本型, , "0"<br /> .局部变量 屏蔽列表, 文本型, , "0"<br /> .局部变量 可用组合, 文本型, , "0"<br /> .局部变量 输出全部, 文本型<br /> .局部变量 下标, 整数型<br /> <br /> 读取勾选后区 (勾选号码)<br /> .如果真 (取数组成员数 (勾选号码) ＜ 2)<br />     信息框 (“请至少勾选2个后区数字”, 0, “提示”, )<br />     返回 ()<br /> .如果真结束<br /> <br /> 清理屏蔽文本 (编辑框_屏蔽两码.内容, 屏蔽列表)<br /> 过滤生成两码 (勾选号码, 屏蔽列表, 可用组合)<br /> <br /> .如果真 (取数组成员数 (可用组合) ＝ 0)<br />     编辑框_输出组合.内容 ＝ “无可用组合，全部被屏蔽”<br />     返回 ()<br /> .如果真结束<br /> <br /> 输出全部 ＝ “”<br /> .计次循环首 (取数组成员数 (可用组合), 下标)<br />     输出全部 ＝ 输出全部 ＋ 可用组合 [下标] ＋ #换行符<br /> .计次循环尾 ()<br /> 编辑框_输出组合.内容 ＝ 输出全部

---

作者: Marvin    时间: 8 小时前

  

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

子程序名	返回值类型	公开	备 注
读取勾选后区
参数名	类 型	参考	可空	数组	备 注
勾选号码数组	文本型				"0", 真

清除数组 (勾选号码数组)
如果真 (选择框01.选中)
加入成员 (勾选号码数组, “01”)
如果真 (选择框02.选中)
加入成员 (勾选号码数组, “02”)
如果真 (选择框03.选中)
加入成员 (勾选号码数组, “03”)
如果真 (选择框04.选中)
加入成员 (勾选号码数组, “04”)
如果真 (选择框05.选中)
加入成员 (勾选号码数组, “05”)
如果真 (选择框06.选中)
加入成员 (勾选号码数组, “06”)
如果真 (选择框07.选中)
加入成员 (勾选号码数组, “07”)
如果真 (选择框08.选中)
加入成员 (勾选号码数组, “08”)
如果真 (选择框09.选中)
加入成员 (勾选号码数组, “09”)
如果真 (选择框10.选中)
加入成员 (勾选号码数组, “10”)
如果真 (选择框11.选中)
加入成员 (勾选号码数组, “11”)
如果真 (选择框12.选中)
加入成员 (勾选号码数组, “12”)

子程序名	返回值类型	公开	备 注
清理屏蔽文本
参数名	类 型	参考	可空	数组	备 注
原始文本	文本型
干净屏蔽数组	文本型				"0", 真

变量名	类 型	静态	数组	备 注
分行数组	文本型		0
单行	文本型
下标	整数型

清除数组 (干净屏蔽数组)
分行数组 ＝ 分割文本 (原始文本, #换行符, )
计次循环首 (取数组成员数 (分行数组), 下标)
单行 ＝ 删首尾空 (分行数组 [下标])
如果真 (单行 ≠ “”)
加入成员 (干净屏蔽数组, 单行)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
过滤生成两码
参数名	类 型	参考	可空	数组	备 注
源号码数组	文本型				"0"
屏蔽数组	文本型				"0"
合法组合数组	文本型				"0", 真

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型
组合文本	文本型
k	整数型
被屏蔽	逻辑型

清除数组 (合法组合数组)
计次循环首 (取数组成员数 (源号码数组), i)
变量循环首 (i ＋ 1, 取数组成员数 (源号码数组), 1, j)  ' 用变量循环避免 j>i 判断，更简洁
组合文本 ＝ 源号码数组 [i] ＋ “ ” ＋ 源号码数组 [j]  ' 修正：[i] 改为 [i]
被屏蔽 ＝ 假
计次循环首 (取数组成员数 (屏蔽数组), k)
如果真 (屏蔽数组 [k] ＝ 组合文本)
被屏蔽 ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (被屏蔽 ＝ 假)
加入成员 (合法组合数组, 组合文本)

变量循环尾 ()
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
勾选号码	文本型		0
屏蔽列表	文本型		0
可用组合	文本型		0
输出全部	文本型
下标	整数型

读取勾选后区 (勾选号码)
如果真 (取数组成员数 (勾选号码) ＜ 2)
信息框 (“请至少勾选2个后区数字”, 0, “提示”, )
返回 ()

清理屏蔽文本 (编辑框_屏蔽两码.内容, 屏蔽列表)
过滤生成两码 (勾选号码, 屏蔽列表, 可用组合)
如果真 (取数组成员数 (可用组合) ＝ 0)
编辑框_输出组合.内容 ＝ “无可用组合，全部被屏蔽”
返回 ()

输出全部 ＝ “”
计次循环首 (取数组成员数 (可用组合), 下标)
输出全部 ＝ 输出全部 ＋ 可用组合 [下标] ＋ #换行符
计次循环尾 ()
编辑框_输出组合.内容 ＝ 输出全部

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 读取勾选后区<br /> .参数 勾选号码数组, 文本型, 参考 数组, "0", 真<br /> <br /> 清除数组 (勾选号码数组)<br /> .如果真 (选择框01.选中)<br />     加入成员 (勾选号码数组, “01”)<br /> .如果真结束<br /> .如果真 (选择框02.选中)<br />     加入成员 (勾选号码数组, “02”)<br /> .如果真结束<br /> .如果真 (选择框03.选中)<br />     加入成员 (勾选号码数组, “03”)<br /> .如果真结束<br /> .如果真 (选择框04.选中)<br />     加入成员 (勾选号码数组, “04”)<br /> .如果真结束<br /> .如果真 (选择框05.选中)<br />     加入成员 (勾选号码数组, “05”)<br /> .如果真结束<br /> .如果真 (选择框06.选中)<br />     加入成员 (勾选号码数组, “06”)<br /> .如果真结束<br /> .如果真 (选择框07.选中)<br />     加入成员 (勾选号码数组, “07”)<br /> .如果真结束<br /> .如果真 (选择框08.选中)<br />     加入成员 (勾选号码数组, “08”)<br /> .如果真结束<br /> .如果真 (选择框09.选中)<br />     加入成员 (勾选号码数组, “09”)<br /> .如果真结束<br /> .如果真 (选择框10.选中)<br />     加入成员 (勾选号码数组, “10”)<br /> .如果真结束<br /> .如果真 (选择框11.选中)<br />     加入成员 (勾选号码数组, “11”)<br /> .如果真结束<br /> .如果真 (选择框12.选中)<br />     加入成员 (勾选号码数组, “12”)<br /> .如果真结束<br /> <br /> .子程序 清理屏蔽文本<br /> .参数 原始文本, 文本型<br /> .参数 干净屏蔽数组, 文本型, , "0", 真<br /> .局部变量 分行数组, 文本型, , "0"<br /> .局部变量 单行, 文本型<br /> .局部变量 下标, 整数型<br /> <br /> 清除数组 (干净屏蔽数组)<br /> 分行数组 ＝ 分割文本 (原始文本, #换行符, )<br /> .计次循环首 (取数组成员数 (分行数组), 下标)<br />     单行 ＝ 删首尾空 (分行数组 [下标])<br />     .如果真 (单行 ≠ “”)<br />         加入成员 (干净屏蔽数组, 单行)<br />     .如果真结束<br /> .计次循环尾 ()<br /> <br /> .子程序 过滤生成两码<br /> .参数 源号码数组, 文本型, , "0"<br /> .参数 屏蔽数组, 文本型, , "0"<br /> .参数 合法组合数组, 文本型, , "0", 真<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 组合文本, 文本型<br /> .局部变量 k, 整数型<br /> .局部变量 被屏蔽, 逻辑型<br /> <br /> 清除数组 (合法组合数组)<br /> .计次循环首 (取数组成员数 (源号码数组), i)<br />     .变量循环首 (i ＋ 1, 取数组成员数 (源号码数组), 1, j)  ' 用变量循环避免 j>i 判断，更简洁<br />         组合文本 ＝ 源号码数组 <i> ＋ “ ” ＋ 源号码数组 [j]  ' 修正：<i> 改为 <i><br />         被屏蔽 ＝ 假<br />         .计次循环首 (取数组成员数 (屏蔽数组), k)<br />             .如果真 (屏蔽数组 [k] ＝ 组合文本)<br />                 被屏蔽 ＝ 真<br />                 跳出循环 ()<br />             .如果真结束<br />         .计次循环尾 ()<br />         .如果真 (被屏蔽 ＝ 假)<br />             加入成员 (合法组合数组, 组合文本)<br />         .如果真结束<br />     .变量循环尾 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮_生成_被单击<br /> .局部变量 勾选号码, 文本型, , "0"<br /> .局部变量 屏蔽列表, 文本型, , "0"<br /> .局部变量 可用组合, 文本型, , "0"<br /> .局部变量 输出全部, 文本型<br /> .局部变量 下标, 整数型<br /> <br /> 读取勾选后区 (勾选号码)<br /> .如果真 (取数组成员数 (勾选号码) ＜ 2)<br />     信息框 (“请至少勾选2个后区数字”, 0, “提示”, )<br />     返回 ()<br /> .如果真结束<br /> <br /> 清理屏蔽文本 (编辑框_屏蔽两码.内容, 屏蔽列表)<br /> 过滤生成两码 (勾选号码, 屏蔽列表, 可用组合)<br /> <br /> .如果真 (取数组成员数 (可用组合) ＝ 0)<br />     编辑框_输出组合.内容 ＝ “无可用组合，全部被屏蔽”<br />     返回 ()<br /> .如果真结束<br /> <br /> 输出全部 ＝ “”<br /> .计次循环首 (取数组成员数 (可用组合), 下标)<br />     输出全部 ＝ 输出全部 ＋ 可用组合 [下标] ＋ #换行符<br /> .计次循环尾 ()<br /> 编辑框_输出组合.内容 ＝ 输出全部

补充内容 (2026-6-29 14:11):
改好了，试下

---

欢迎光临 精易论坛 (https://bbs.ijingyi.com/)

Powered by Discuz! X3.4