网站首页 > 易语言相关 > 易语言例程 正文
.版本 2 .程序集 窗口程序集1 .程序集变量 bjk, 编辑框 .程序集变量 bccca, 文本型, , "9" .程序集变量 bcccb, 文本型, , "9" .程序集变量 bcccc, 文本型, , "9" .程序集变量 bd, 整数型, , "9" .程序集变量 e1, 文本型, , "81" .程序集变量 e2, 文本型, , "81" .子程序 __启动窗口_创建完毕 .子程序 _按钮1_被单击 .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 z, 整数型 .局部变量 a, 整数型 .局部变量 yccy, 文本型 yccy = “” .计次循环首 (9, y) bccca [y] = “” .计次循环首 (9, x) bjk = 取标记组件 ((y - 1) × 9 + x) .如果真 (取文本长度 (bjk.内容) = 1) bccca [y] = bccca [y] + bjk.内容 .如果真结束 .计次循环尾 () .计次循环首 (取文本长度 (bccca [y]), x) .如果真 (寻找文本 (bccca [y], 取文本中间 (bccca [y], x, 1), x + 1, 假) ≠ -1) yccy = yccy + “第” + 到文本 (y) + “横行有重复数字 ” + 取文本中间 (bccca [y], x, 1) + #换行符 .如果真结束 .计次循环尾 () .计次循环尾 () .计次循环首 (9, x) bcccb [x] = “” .计次循环首 (9, y) bjk = 取标记组件 ((y - 1) × 9 + x) .如果真 (取文本长度 (bjk.内容) = 1) bcccb [x] = bcccb [x] + bjk.内容 .如果真结束 .计次循环尾 () .计次循环首 (取文本长度 (bcccb [x]), y) .如果真 (寻找文本 (bcccb [x], 取文本中间 (bcccb [x], y, 1), y + 1, 假) ≠ -1) yccy = yccy + “第” + 到文本 (x) + “竖行有重复数字 ” + 取文本中间 (bcccb [x], y, 1) + #换行符 .如果真结束 .计次循环尾 () .计次循环尾 () .计次循环首 (3, a) .计次循环首 (3, z) bcccc [(a - 1) × 3 + z] = “” .计次循环首 (3, y) .计次循环首 (3, x) bjk = 取标记组件 ((a - 1) × 27 + (z - 1) × 3 + (y - 1) × 9 + x) .如果真 (取文本长度 (bjk.内容) = 1) bcccc [(a - 1) × 3 + z] = bcccc [(a - 1) × 3 + z] + bjk.内容 .如果真结束 .计次循环尾 () .计次循环尾 () .计次循环首 (取文本长度 (bcccc [(a - 1) × 3 + z]), x) .如果真 (寻找文本 (bcccc [(a - 1) × 3 + z], 取文本中间 (bcccc [(a - 1) × 3 + z], x, 1), x + 1, 假) ≠ -1) yccy = yccy + “第” + 到文本 ((a - 1) × 3 + z) + “区有重复数字 ” + 取文本中间 (bcccc [(a - 1) × 3 + z], x, 1) + #换行符 .如果真结束 .计次循环尾 () .计次循环尾 () .计次循环尾 () .如果 (yccy ≠ “”) 信息框 (yccy, 0, “错误”) .否则 数组清零 (e1) .计次循环首 (81, x) bjk = 取标记组件 (x) .如果 (bjk.内容 ≠ “”) e1 [x] = bjk.内容 .否则 e1 [x] = “” .如果结束 .计次循环尾 () 出结果 () .如果结束 .子程序 出结果 .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 z, 整数型 .局部变量 a, 整数型 .局部变量 b, 整数型 .局部变量 f, 整数型 .循环判断首 () f = 0 .计次循环首 (81, x) bjk = 取标记组件 (x) .如果 (取文本长度 (bjk.内容) = 0) e2 [x] = “123456789” .否则 e2 [x] = e1 [x] .如果结束 a = (x - 1) ÷ 9 + 1 .计次循环首 (取文本长度 (bccca [a]), y) b = 寻找文本 (e2 [x], 取文本中间 (bccca [a], y, 1), 1, 假) .如果真 (b ≠ -1) e2 [x] = 取文本左边 (e2 [x], b - 1) + 取文本右边 (e2 [x], 取文本长度 (e2 [x]) - b) .如果真结束 .计次循环尾 () a = (x - 1) % 9 + 1 .计次循环首 (取文本长度 (bcccb [a]), y) b = 寻找文本 (e2 [x], 取文本中间 (bcccb [a], y, 1), 1, 假) .如果真 (b ≠ -1) e2 [x] = 取文本左边 (e2 [x], b - 1) + 取文本右边 (e2 [x], 取文本长度 (e2 [x]) - b) .如果真结束 .计次循环尾 () b = (x - 1) ÷ 27 a = b × 3 + ((x - 1) % 9) ÷ 3 + 1 .计次循环首 (取文本长度 (bcccc [a]), y) b = 寻找文本 (e2 [x], 取文本中间 (bcccc [a], y, 1), 1, 假) .如果真 (b ≠ -1) e2 [x] = 取文本左边 (e2 [x], b - 1) + 取文本右边 (e2 [x], 取文本长度 (e2 [x]) - b) .如果真结束 .计次循环尾 () .如果真 (取文本长度 (e2 [x]) = 1) bjk.内容 = 到文本 (e2 [x]) .如果真结束 .如果 (e2 [x] = e1 [x]) f = f + 1 .否则 e1 [x] = e2 [x] .如果结束 .计次循环尾 () .计次循环首 (9, y) bccca [y] = “” .计次循环首 (9, x) bjk = 取标记组件 ((y - 1) × 9 + x) .如果真 (取文本长度 (bjk.内容) = 1) bccca [y] = bccca [y] + bjk.内容 .如果真结束 .计次循环尾 () .计次循环尾 () .计次循环首 (9, x) bcccb [x] = “” .计次循环首 (9, y) bjk = 取标记组件 ((y - 1) × 9 + x) .如果真 (取文本长度 (bjk.内容) = 1) bcccb [x] = bcccb [x] + bjk.内容 .如果真结束 .计次循环尾 () .计次循环尾 () .计次循环首 (3, a) .计次循环首 (3, z) bcccc [(a - 1) × 3 + z] = “” .计次循环首 (3, y) .计次循环首 (3, x) bjk = 取标记组件 ((a - 1) × 27 + (z - 1) × 3 + (y - 1) × 9 + x) .如果真 (取文本长度 (bjk.内容) = 1) bcccc [(a - 1) × 3 + z] = bcccc [(a - 1) × 3 + z] + bjk.内容 .如果真结束 .计次循环尾 () .计次循环尾 () .计次循环尾 () .计次循环尾 () .循环判断尾 (f < 81) .计次循环首 (81, x) bjk = 取标记组件 (x) .如果真 (bjk.内容 = “”) 输出调试文本 (e1 [x]) bjk.内容 = 取文本左边 (e1 [x], 1) 跳出循环 () .如果真结束 .计次循环尾 () f = 0 .计次循环首 (81, x) bjk = 取标记组件 (x) .如果真 (取文本长度 (bjk.内容) = 1) f = f + 1 .如果真结束 .计次循环尾 () .如果真 (f = 81) 信息框 (“解答完毕~”, 0, “完成”) .如果真结束 .子程序 _按钮2_被单击 .局部变量 x, 整数型 .计次循环首 (81, x) bjk = 取标记组件 (x) bjk.内容 = “” .计次循环尾 ()
@资源源码站
- 上一篇: 易语言气球提示框显示图片源码
- 下一篇: 易语言文本操作扩展源码
猜你喜欢
- 2022-12-14 每日分享- LeetCode 项目中如何查找二维数组
- 2022-12-14 零知识证明原理及其应用(一)
- 2022-12-14 通过4种经典应用,带你熟悉回溯算法
- 2019-10-19 易语言实现的数独小游戏
- 2019-09-18 穷举法解数独易语言源码
- 2018-07-28 易语言数独游戏源码
- 2018-07-26 易语言分级数独游戏源码
- 2018-07-26 易语言疯狂的数独游戏源码
- 2018-07-15 易语言九宫数独游戏源码
- 2018-04-28 爱杀数独2.0易语言源码
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
本文暂时没有评论,来添加一个吧(●'◡'●)