自定义宫格数学题

易语言 2020-07-04 13:14:59

.如果 (输入框 (“请输入表格的横纵行数!(X>3)”, “请输入”, “3”, 次数, 2))
.如果真 (次数 < 3)
次数 = 3
.如果真结束

.否则
次数 = 3
.如果结束
.计次循环首 (次数, 计次)
.计次循环首 (次数, 计数)
复制窗口组件 (被复制组件, 临时)
临时.移动 (15 + (计数 - 1) × 40 + (计数 - 1) × 15, 15 + (计次 - 1) × 40 + (计次 - 1) × 15, 40, 40)
临时.可视 = 真
临时.标记 = 到文本 ((计次 - 1) × 次数 + 计数)
临时.最大允许长度 = 取文本长度 (到文本 (绝对取整 (次数 × 次数)))
加入成员 (组件, 临时)
' (计次 - 1) × 行数 + 计数
.计次循环尾 ()
.计次循环尾 ()
最大的数 = 绝对取整 (次数 × 次数)
标题 = “数学题”
信息框 (“请在方框里输入1~” + 到文本 (最大的数) + “的数,使得横竖斜之和都相等。”, #信息图标, “提示”, )
宽度 = 15 + 次数 × 40 + 次数 × 15 + 5
按钮1.左边 = 宽度 - 63
高度 = 15 + (次数 + 1) × 40 + (次数 + 1) × 15 + 15
按钮1.顶边 = 高度 - 68
标签1.顶边 = 按钮1.顶边 - 6
重定义数组 (组件, 真, 次数 × 次数) ' 防止数组错误