求余取值函数（默认不大于20）
函数 求余取值(输入 为 文本型,求余值 为 整数型) 为 文本型
变量 求余临存 为 整数型
如果 输入 = "" 则
求余取值 = ""
退出
结束 如果
如果 求余值 % 2 = 0 则
求余临存 = 0
否则
求余临存 = 1
结束 如果
创建表达式("(\\d{1})出现:(.*?)(\\d{1,2})",真,真)
开始匹配(输入)
变量 结果 为 文本型 = ""
判断循环首 匹配下一个()
变量 数字 为 文本型 = 取子匹配文本(1)
变量 次数 为 文本型 = 取子匹配文本(3)
如果 求余临存 = 0 则
如果 到整数(次数) < 20 且 到整数(次数) % 2 = 0 则
结果 = 结果 & 数字
结束 如果
否则
如果 到整数(次数) < 20 且 到整数(次数) % 2 <> 0 则
结果 = 结果 & 数字
结束 如果
结束 如果
判断循环尾
求余取值 = 结果
结束 函数
事件 按钮1.被单击()
编辑框2.内容 = 求余取值(编辑框1.内容,到整数(编辑框3.内容))
结束 事件
944 Views
