智能填九宫格
.版本 2.程序集 窗口程序集_启动窗口
.程序集变量 b, 整数型, , "0"
.子程序 _按钮1_被单击
.局部变量 输入值, 整数型
.局部变量 i, 整数型
.局部变量 a, 整数型, , "0"
.局部变量 ll, 文本型
a ＝ { 0, 0, 0, 0, 0, 0, 0, 0, 0 }
a ＝ 到整数 (编辑框1.内容)
a ＝ 到整数 (编辑框2.内容)
a ＝ 到整数 (编辑框3.内容)
a ＝ 到整数 (编辑框4.内容)
a ＝ 到整数 (编辑框5.内容)
a ＝ 到整数 (编辑框6.内容)
a ＝ 到整数 (编辑框7.内容)
a ＝ 到整数 (编辑框8.内容)
a ＝ 到整数 (编辑框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 ＝ 中心值 － 3
b ＝ 中心值 － 1
b ＝ 中心值 ＋ 1
b ＝ 中心值 ＋ 3
b ＝ 中心值 ＋ 4
b ＝ 中心值 － 4
b ＝ 中心值 ＋ 2
b ＝ 中心值 － 2
b ＝ 中心值
返回 ()
.子程序 求九宫格
编辑框1.内容 ＝ 到文本 (b )
编辑框2.内容 ＝ 到文本 (b )
编辑框3.内容 ＝ 到文本 (b )
编辑框4.内容 ＝ 到文本 (b )
编辑框5.内容 ＝ 到文本 (b )
编辑框6.内容 ＝ 到文本 (b )
编辑框7.内容 ＝ 到文本 (b )
编辑框8.内容 ＝ 到文本 (b )
编辑框9.内容 ＝ 到文本 (b )
返回 ()
页:
[1]