.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 程序集_运算符号, 文本型
.程序集变量 程序集_算式内容, 整数型
.子程序 _按钮_1_被单击
编辑框_算式.加入文本 (“1”)
.子程序 _按钮_2_被单击
编辑框_算式.加入文本 (“2”)
.子程序 _按钮_3_被单击
编辑框_算式.加入文本 (“3”)
.子程序 _按钮_4_被单击
编辑框_算式.加入文本 (“4”)
.子程序 _按钮_5_被单击
编辑框_算式.加入文本 (“5”)
.子程序 _按钮_6_被单击
编辑框_算式.加入文本 (“6”)
.子程序 _按钮_7_被单击
编辑框_算式.加入文本 (“7”)
.子程序 _按钮_8_被单击
编辑框_算式.加入文本 (“8”)
.子程序 _按钮_9_被单击
编辑框_算式.加入文本 (“9”)
.子程序 _按钮_0_被单击
编辑框_算式.加入文本 (“0”)
.子程序 _按钮_加_被单击
程序集_算式内容 = 到整数 (编辑框_算式.内容)
程序集_运算符号 = “+”
编辑框_算式.内容 = “”
.子程序 _按钮_减_被单击
程序集_算式内容 = 到整数 (编辑框_算式.内容)
程序集_运算符号 = “-”
编辑框_算式.内容 = “”
.子程序 _按钮_乘_被单击
程序集_算式内容 = 到整数 (编辑框_算式.内容)
程序集_运算符号 = “*”
编辑框_算式.内容 = “”
.子程序 _按钮_除_被单击
程序集_算式内容 = 到整数 (编辑框_算式.内容)
程序集_运算符号 = “/”
编辑框_算式.内容 = “”
.子程序 _按钮_等于_被单击
.局部变量 临时_数字, 整数型
.局部变量 运算结果, 双精度小数型
临时_数字 = 到整数 (编辑框_算式.内容)
.判断开始 (程序集_运算符号 = “+”)
运算结果 = 程序集_算式内容 + 临时_数字
.判断 (程序集_运算符号 = “-”)
运算结果 = 程序集_算式内容 - 临时_数字
.判断 (程序集_运算符号 = “*”)
运算结果 = 程序集_算式内容 × 临时_数字
.判断 (程序集_运算符号 = “/”)
运算结果 = 程序集_算式内容 ÷ 临时_数字
.判断 (程序集_运算符号 = “%”)
运算结果 = 程序集_算式内容 % 临时_数字
.默认
.判断结束
编辑框_算式.内容 = 到文本 (运算结果)
.子程序 _按钮_清空_被单击
编辑框_算式.内容 = “”
.子程序 _按钮_删除_被单击
编辑框_算式.内容 = 取文本左边 (编辑框_算式.内容, 取文本长度 (编辑框_算式.内容) - 1)
.子程序 _按钮_取余_被单击
程序集_算式内容 = 到整数 (编辑框_算式.内容)
程序集_运算符号 = “%”
编辑框_算式.内容 = “”
.子程序 _按钮_四舍五入_被单击
编辑框_算式.内容 = 到文本 (四舍五入 (到数值 (编辑框_算式.内容), 3))
.程序集 窗口程序集_启动窗口
.程序集变量 程序集_运算符号, 文本型
.程序集变量 程序集_算式内容, 整数型
.子程序 _按钮_1_被单击
编辑框_算式.加入文本 (“1”)
.子程序 _按钮_2_被单击
编辑框_算式.加入文本 (“2”)
.子程序 _按钮_3_被单击
编辑框_算式.加入文本 (“3”)
.子程序 _按钮_4_被单击
编辑框_算式.加入文本 (“4”)
.子程序 _按钮_5_被单击
编辑框_算式.加入文本 (“5”)
.子程序 _按钮_6_被单击
编辑框_算式.加入文本 (“6”)
.子程序 _按钮_7_被单击
编辑框_算式.加入文本 (“7”)
.子程序 _按钮_8_被单击
编辑框_算式.加入文本 (“8”)
.子程序 _按钮_9_被单击
编辑框_算式.加入文本 (“9”)
.子程序 _按钮_0_被单击
编辑框_算式.加入文本 (“0”)
.子程序 _按钮_加_被单击
程序集_算式内容 = 到整数 (编辑框_算式.内容)
程序集_运算符号 = “+”
编辑框_算式.内容 = “”
.子程序 _按钮_减_被单击
程序集_算式内容 = 到整数 (编辑框_算式.内容)
程序集_运算符号 = “-”
编辑框_算式.内容 = “”
.子程序 _按钮_乘_被单击
程序集_算式内容 = 到整数 (编辑框_算式.内容)
程序集_运算符号 = “*”
编辑框_算式.内容 = “”
.子程序 _按钮_除_被单击
程序集_算式内容 = 到整数 (编辑框_算式.内容)
程序集_运算符号 = “/”
编辑框_算式.内容 = “”
.子程序 _按钮_等于_被单击
.局部变量 临时_数字, 整数型
.局部变量 运算结果, 双精度小数型
临时_数字 = 到整数 (编辑框_算式.内容)
.判断开始 (程序集_运算符号 = “+”)
运算结果 = 程序集_算式内容 + 临时_数字
.判断 (程序集_运算符号 = “-”)
运算结果 = 程序集_算式内容 - 临时_数字
.判断 (程序集_运算符号 = “*”)
运算结果 = 程序集_算式内容 × 临时_数字
.判断 (程序集_运算符号 = “/”)
运算结果 = 程序集_算式内容 ÷ 临时_数字
.判断 (程序集_运算符号 = “%”)
运算结果 = 程序集_算式内容 % 临时_数字
.默认
.判断结束
编辑框_算式.内容 = 到文本 (运算结果)
.子程序 _按钮_清空_被单击
编辑框_算式.内容 = “”
.子程序 _按钮_删除_被单击
编辑框_算式.内容 = 取文本左边 (编辑框_算式.内容, 取文本长度 (编辑框_算式.内容) - 1)
.子程序 _按钮_取余_被单击
程序集_算式内容 = 到整数 (编辑框_算式.内容)
程序集_运算符号 = “%”
编辑框_算式.内容 = “”
.子程序 _按钮_四舍五入_被单击
编辑框_算式.内容 = 到文本 (四舍五入 (到数值 (编辑框_算式.内容), 3))