.版本 2
.程序集 窗口程序集1
.程序集变量 数值1, 文本型
.程序集变量 符号, 文本型
.程序集变量 数值2, 文本型
.程序集变量 上一个数, 整数型
.子程序 __启动窗口_创建完毕
.子程序 _Y_被单击, , , 1
.如果 (数值1 = “”)
k.内容 = k.内容 + “1”
.否则
.如果结束
.如果 (数值1 ≠ “”)
k.内容 = k.内容 + “1”
数值2 = k.内容
.否则
.如果结束
上一个数 = 1
.子程序 _E_被单击, , , 2
.如果 (数值1 = “”)
k.内容 = k.内容 + “2”
.否则
.如果结束
.如果 (数值1 ≠ “”)
k.内容 = k.内容 + “2”
数值2 = k.内容
.否则
.如果结束
上一个数 = 2
.子程序 _S_被单击, , , 3
.如果 (数值1 = “”)
k.内容 = k.内容 + “3”
.否则
.如果结束
.如果 (数值1 ≠ “”)
k.内容 = k.内容 + “3”
数值2 = k.内容
.否则
.如果结束
上一个数 = 3
.子程序 _SHI_被单击, , , 4
.如果 (数值1 = “”)
k.内容 = k.内容 + “4”
.否则
.如果结束
.如果 (数值1 ≠ “”)
k.内容 = k.内容 + “4”
数值2 = k.内容
.否则
.如果结束
上一个数 = 4
.子程序 _W_被单击, , , 5
.如果 (数值1 = “”)
k.内容 = k.内容 + “5”
.否则
.如果结束
.如果 (数值1 ≠ “”)
k.内容 = k.内容 + “5”
数值2 = k.内容
.否则
.如果结束
上一个数 = 5
.子程序 _L_被单击, , , 6
.如果 (数值1 = “”)
k.内容 = k.内容 + “6”
.否则
.如果结束
.如果 (数值1 ≠ “”)
k.内容 = k.内容 + “6”
数值2 = k.内容
.否则
.如果结束
上一个数 = 6
.子程序 _Q_被单击, , , 7
.如果 (数值1 = “”)
k.内容 = k.内容 + “7”
.否则
.如果结束
.如果 (数值1 ≠ “”)
k.内容 = k.内容 + “7”
数值2 = k.内容
.否则
.如果结束
上一个数 = 7
.子程序 _B_被单击, , , 8
.如果 (数值1 = “”)
k.内容 = k.内容 + “8”
.否则
.如果结束
.如果 (数值1 ≠ “”)
k.内容 = k.内容 + “8”
数值2 = k.内容
.否则
.如果结束
上一个数 = 8
.子程序 _J_被单击, , , 9
.如果 (数值1 = “”)
k.内容 = k.内容 + “9”
.否则
.如果结束
.如果 (数值1 ≠ “”)
k.内容 = k.内容 + “9”
数值2 = k.内容
.否则
.如果结束
上一个数 = 9
.子程序 _Z_被单击, , , 0
.如果 (数值1 = “”)
k.内容 = k.内容 + “0”
.否则
.如果结束
.如果 (数值1 ≠ “”)
k.内容 = k.内容 + “0”
数值2 = k.内容
.否则
.如果结束
上一个数 = 0
.子程序 _P_被单击, , , +
数值1 = k.内容
k.内容 = “”
符号 = “+”
.子程序 _O_被单击, , , -
数值1 = k.内容
k.内容 = “”
符号 = “-”
.子程序 _I_被单击, , , *
数值1 = k.内容
k.内容 = “”
符号 = “×”
.子程序 _U_被单击, , , /
数值1 = k.内容
k.内容 = “”
符号 = “÷”
.子程序 _P1_被单击, , , 平方
.判断开始 (k.内容 = “”)
信息框 (“编辑框不能空白”, 0, )
返回 ()
.默认
.判断结束
k.内容 = 到文本 (到数值 (k.内容) × 到数值 (k.内容))
.子程序 _P2_被单击, , , 立方
.判断开始 (k.内容 = “”)
信息框 (“编辑框不能空白”, 0, )
返回 ()
.默认
.判断结束
k.内容 = 到文本 (到数值 (k.内容) × 到数值 (k.内容) × 到数值 (k.内容))
.子程序 _D_被单击, , , 等于
.如果 (k.内容 = “”)
信息框 (“编辑框不能空白”, 0, )
返回 ()
.否则
.如果结束
.如果 (符号 = “+”)
k.内容 = 到文本 (到数值 (数值1) + 到数值 (数值2))
.否则
.如果结束
.如果 (符号 = “-”)
k.内容 = 到文本 (到数值 (数值1) - 到数值 (数值2))
.否则
.如果结束
.如果 (符号 = “×”)
k.内容 = 到文本 (到数值 (数值1) × 到数值 (数值2))
.否则
.如果结束
.如果 (符号 = “÷”)
k.内容 = 到文本 (到数值 (数值1) ÷ 到数值 (数值2))
.否则
.如果结束
数值1 = k.内容
数值2 = “”
符号 = “”
.子程序 _H_被单击
.局部变量 数值, 整数型
数值 = 到整数 (k.内容)
k.内容 = 到文本 (数值 - 上一个数)
.子程序 _H1_被单击
数值1 = “”
数值2 = “”
符号 = “”
k.内容 = “”
.子程序 _zf_被单击
.如果 (数值1 = “”)
k.内容 = 到文本 (到数值 (k.内容) × 到数值 (“-1”))
数值1 = k.内容
返回 ()
.否则
.如果结束
.如果 (数值1 ≠ “”)
k.内容 = 到文本 (到数值 (k.内容) × 到数值 (“-1”))
数值2 = k.内容
返回 ()
.否则
.如果结束