.版本 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.内容

    返回 ()

.否则

.如果结束