2. 计算器

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 程序集_运算符号, 文本型
.程序集变量 程序集_算式内容, 整数型

.子程序 _按钮_1_被单击

编辑框_算式.加入文本 (“1”)


.子程序 _按钮_2_被单击

编辑框_算式.加入文本 (“2”)

.子程序 _按钮_3_被单击

编辑框_算式.加入文本 (“3”)

.子程序 _按钮_4_被单击

编辑框_算式.加入文本 (“4”)

.子程序 _按钮_5_被单击

编辑框_算式.加入文本 (“5”)

.子程序 _按钮_6_被单击

编辑框_算式.加入文本 (“6”)

.子程序 _按钮_7_被单击

编辑框_算式.加入文本 (“7”)

.子程序 _按钮_8_被单击

编辑框_算式.加入文本 (“8”)

.子程序 _按钮_9_被单击

编辑框_算式.加入文本 (“9”)

.子程序 _按钮_0_被单击

编辑框_算式.加入文本 (“0”)

.子程序 _按钮_加_被单击

程序集_算式内容 ＝ 到整数 (编辑框_算式.内容)
程序集_运算符号 ＝ “＋”
编辑框_算式.内容 ＝ “”

.子程序 _按钮_减_被单击

程序集_算式内容 ＝ 到整数 (编辑框_算式.内容)
程序集_运算符号 ＝ “－”
编辑框_算式.内容 ＝ “”

.子程序 _按钮_乘_被单击

程序集_算式内容 ＝ 到整数 (编辑框_算式.内容)
程序集_运算符号 ＝ “×”
编辑框_算式.内容 ＝ “”

.子程序 _按钮_除_被单击

程序集_算式内容 ＝ 到整数 (编辑框_算式.内容)
程序集_运算符号 ＝ “÷”
编辑框_算式.内容 ＝ “”

.子程序 _按钮_等于_被单击
.局部变量 临时变量, 整数型
.局部变量 运算结果, 小数型


临时变量 ＝ 到整数 (编辑框_算式.内容)
.如果 (程序集_运算符号 ＝ “＋”)
    运算结果 ＝ 程序集_算式内容 ＋ 临时变量
.否则
    .如果 (程序集_运算符号 ＝ “－”)
        运算结果 ＝ 程序集_算式内容 － 临时变量
    .否则
        .如果 (程序集_运算符号 ＝ “×”)
            运算结果 ＝ 程序集_算式内容 × 临时变量
        .否则
            .如果 (程序集_运算符号 ＝ “÷”)
                运算结果 ＝ 程序集_算式内容 ÷ 临时变量
            .否则

            .如果结束

        .如果结束

    .如果结束

.如果结束

编辑框_算式.内容 ＝ 到文本 (运算结果)


.子程序 _按钮_清空_被单击

编辑框_算式.内容 ＝ “”


.子程序 _按钮_删除_被单击

编辑框_算式.内容 ＝ 取文本左边 (编辑框_算式.内容, 取文本长度 (编辑框_算式.内容) － 1)