智能填九宫格

zhengqijun8888

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 b, 整数型, , "0"

.子程序 _按钮1_被单击
.局部变量 输入值, 整数型
.局部变量 i, 整数型
.局部变量 a, 整数型, , "0"
.局部变量 ll, 文本型

a ＝ { 0, 0, 0, 0, 0, 0, 0, 0, 0 }
a [1] ＝ 到整数 (编辑框1.内容)
a [2] ＝ 到整数 (编辑框2.内容)
a [3] ＝ 到整数 (编辑框3.内容)
a [4] ＝ 到整数 (编辑框4.内容)
a [5] ＝ 到整数 (编辑框5.内容)
a [6] ＝ 到整数 (编辑框6.内容)
a [7] ＝ 到整数 (编辑框7.内容)
a [8] ＝ 到整数 (编辑框8.内容)
a [9] ＝ 到整数 (编辑框9.内容)


.计次循环首 (9, i)
    .如果 (a ≠ 0)
        输入值 ＝ a
        跳出循环 ()
    .否则

    .如果结束

.计次循环尾 ()

求中间值 (输入值, i)
求九宫格 ()

.子程序 求中间值
.参数 输入值1, 整数型
.参数 i, 整数型
.局部变量 中心值
.局部变量 j

中心值 ＝ 输入值1
j ＝ i
b ＝ { 0, 0, 0, 0, 0, 0, 0, 0, 0 }
.如果真 (j ＝ 1)
    中心值 ＝ 输入值1 ＋ 3
.如果真结束
.如果真 (j ＝ 2)
    中心值 ＝ 输入值1 － 4
.如果真结束
.如果真 (j ＝ 3)
    中心值 ＝ 输入值1 ＋ 1
.如果真结束
.如果真 (j ＝ 4)
    中心值 ＝ 输入值1 － 2
.如果真结束
.如果真 (j ＝ 6)
    中心值 ＝ 输入值1 ＋ 2
.如果真结束
.如果真 (j ＝ 7)
    中心值 ＝ 输入值1 － 1
.如果真结束
.如果真 (j ＝ 8)
    中心值 ＝ 输入值1 ＋ 4
.如果真结束
.如果真 (j ＝ 9)
    中心值 ＝ 输入值1 － 3
.如果真结束

b [1] ＝ 中心值 － 3
b [3] ＝ 中心值 － 1
b [7] ＝ 中心值 ＋ 1
b [9] ＝ 中心值 ＋ 3
b [2] ＝ 中心值 ＋ 4
b [8] ＝ 中心值 － 4
b [4] ＝ 中心值 ＋ 2
b [6] ＝ 中心值 － 2
b [5] ＝ 中心值
返回 ()


.子程序 求九宫格

编辑框1.内容 ＝ 到文本 (b [1])
编辑框2.内容 ＝ 到文本 (b [2])
编辑框3.内容 ＝ 到文本 (b [3])
编辑框4.内容 ＝ 到文本 (b [4])
编辑框5.内容 ＝ 到文本 (b [5])
编辑框6.内容 ＝ 到文本 (b [6])
编辑框7.内容 ＝ 到文本 (b [7])
编辑框8.内容 ＝ 到文本 (b [8])
编辑框9.内容 ＝ 到文本 (b [9])
返回 ()