.版本 2
.程序集 窗口程序集1
.程序集变量 数1, 文本型
.程序集变量 数2, 文本型
.程序集变量 计算符号, 文本型
.子程序 _数字1_被单击
.如果 (计算符号 ＝ “”)
数1 ＝ 数1 ＋ “1”
编辑框_输入内容.内容 ＝ 数1
.否则
.如果 (计算符号 ≠ “=”)
数2 ＝ 数2 ＋ “1”
编辑框_输入内容.内容 ＝ 数2
.否则
信息框 (“请先按运算符号！”, 0, )
.如果结束
.如果结束
.子程序 _数字2_被单击
.如果 (计算符号 ＝ “”)
数1 ＝ 数1 ＋ “2”
编辑框_输入内容.内容 ＝ 数1
.否则
.如果 (计算符号 ≠ “=”)
数2 ＝ 数2 ＋ “2”
编辑框_输入内容.内容 ＝ 数2
.否则
信息框 (“请先按运算符号！”, 0, )
.如果结束
.如果结束
.子程序 _铵钮_加号_被单击
.如果 (数1 ≠ “”)
计算符号 ＝ “+”
.否则
信息框 (“请先输入数字！”, 0, )
.如果结束
.如果 (数2 ≠ “”)
编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) ＋ 到数值 (数2))
数1 ＝ 编辑框_计算结果.内容
数2 ＝ “”
.否则
.如果结束
.子程序 子程序_按钮单击后
.' 如果 (计算符号 ≠ “”)
' 数2 ＝ 数2 ＋ “2”
' 编辑框_输入内容.内容 ＝ 数1
.否则
' 数1 ＝ 数1 ＋ “2”
' 编辑框_输入内容.内容 ＝ 数1
.如果结束
.子程序 _铵钮_减号_被单击
.如果 (数1 ≠ “”)
计算符号 ＝ “-”
.否则
信息框 (“请先输入数字！”, 0, )
.如果结束
.如果 (数2 ≠ “”)
编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) － 到数值 (数2))
数1 ＝ 编辑框_计算结果.内容
数2 ＝ “”
.否则
.如果结束
.子程序 _铵钮_乘号_被单击
.如果 (数1 ≠ “”)
计算符号 ＝ “×”
.否则
信息框 (“请先输入数字！”, 0, )
.如果结束
.如果 (数2 ≠ “”)
编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) × 到数值 (数2))
数1 ＝ 编辑框_计算结果.内容
数2 ＝ “”
.否则
.如果结束
.子程序 _铵钮_除号_被单击
.如果 (数1 ≠ “”)
计算符号 ＝ “÷”
.否则
信息框 (“请先输入数字！”, 0, )
.如果结束
.如果 (数2 ≠ “”)
编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) ÷ 到数值 (数2))
数1 ＝ 编辑框_计算结果.内容
数2 ＝ “”
.否则
.如果结束
.子程序 _数字3_被单击
.如果 (计算符号 ＝ “”)
数1 ＝ 数1 ＋ “3”
编辑框_输入内容.内容 ＝ 数1
.否则
.如果 (计算符号 ≠ “=”)
数2 ＝ 数2 ＋ “3”
编辑框_输入内容.内容 ＝ 数2
.否则
信息框 (“请先按运算符号！”, 0, )
.如果结束
.如果结束
.子程序 _数字4_被单击
.如果 (计算符号 ＝ “”)
数1 ＝ 数1 ＋ “4”
编辑框_输入内容.内容 ＝ 数1
.否则
.如果 (计算符号 ≠ “=”)
数2 ＝ 数2 ＋ “4”
编辑框_输入内容.内容 ＝ 数2
.否则
信息框 (“请先按运算符号！”, 0, )
.如果结束
.如果结束
.子程序 _数字5_被单击
.如果 (计算符号 ＝ “”)
数1 ＝ 数1 ＋ “5”
编辑框_输入内容.内容 ＝ 数1
.否则
.如果 (计算符号 ≠ “=”)
数2 ＝ 数2 ＋ “5”
编辑框_输入内容.内容 ＝ 数2
.否则
信息框 (“请先按运算符号！”, 0, )
.如果结束
.如果结束
.子程序 _数字6_被单击
.如果 (计算符号 ＝ “”)
数1 ＝ 数1 ＋ “6”
编辑框_输入内容.内容 ＝ 数1
.否则
.如果 (计算符号 ≠ “=”)
数2 ＝ 数2 ＋ “6”
编辑框_输入内容.内容 ＝ 数2
.否则
信息框 (“请先按运算符号！”, 0, )
.如果结束
.如果结束
.子程序 _数字7_被单击
.如果 (计算符号 ＝ “”)
数1 ＝ 数1 ＋ “7”
编辑框_输入内容.内容 ＝ 数1
.否则
.如果 (计算符号 ≠ “=”)
数2 ＝ 数2 ＋ “7”
编辑框_输入内容.内容 ＝ 数2
.否则
信息框 (“请先按运算符号！”, 0, )
.如果结束
.如果结束
.子程序 _数字8_被单击
.如果 (计算符号 ＝ “”)
数1 ＝ 数1 ＋ “8”
编辑框_输入内容.内容 ＝ 数1
.否则
.如果 (计算符号 ≠ “=”)
数2 ＝ 数2 ＋ “8”
编辑框_输入内容.内容 ＝ 数2
.否则
信息框 (“请先按运算符号！”, 0, )
.如果结束
.如果结束
.子程序 _数字9_被单击
.如果 (计算符号 ＝ “”)
数1 ＝ 数1 ＋ “9”
编辑框_输入内容.内容 ＝ 数1
.否则
.如果 (计算符号 ≠ “=”)
数2 ＝ 数2 ＋ “9”
编辑框_输入内容.内容 ＝ 数2
.否则
信息框 (“请先按运算符号！”, 0, )
.如果结束
.如果结束
.子程序 _数字0_被单击
.如果 (计算符号 ＝ “”)
数1 ＝ 数1 ＋ “0”
编辑框_输入内容.内容 ＝ 数1
.否则
.如果 (计算符号 ≠ “=”)
数2 ＝ 数2 ＋ “0”
编辑框_输入内容.内容 ＝ 数2
.否则
信息框 (“请先按运算符号！”, 0, )
.如果结束
.如果结束
.子程序 _按钮_等于号_被单击
.判断开始 (计算符号 ＝ “+”)
.如果 (数2 ≠ “”)
编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) ＋ 到数值 (数2))
数1 ＝ 编辑框_计算结果.内容
数2 ＝ “”
.否则
.如果结束
.判断 (计算符号 ＝ “-”)
.如果 (数2 ≠ “”)
编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) － 到数值 (数2))
数1 ＝ 编辑框_计算结果.内容
数2 ＝ “”
.否则
.如果结束
.判断 (计算符号 ＝ “×”)
.如果 (数2 ≠ “”)
编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) × 到数值 (数2))
数1 ＝ 编辑框_计算结果.内容
数2 ＝ “”
.否则
.如果结束
.判断 (计算符号 ＝ “÷”)
.如果 (数2 ≠ “”)
编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) ÷ 到数值 (数2))
数1 ＝ 编辑框_计算结果.内容
数2 ＝ “”
.否则
.如果结束
.默认
.判断结束
计算符号 ＝ “=”
.子程序 _按钮_清空_被单击
数1 ＝ “”
数2 ＝ “”
计算符号 ＝ “”
编辑框_计算结果.内容 ＝ “”
编辑框_输入内容.内容 ＝ “”
.子程序 _铵钮_小数点_被单击
.如果 (数2 ＝ “”)
.如果 (寻找文本 (数1, “.”, , 假) ＝ -1)
数1 ＝ 数1 ＋ “.”
编辑框_输入内容.内容 ＝ 数1
.否则
.如果结束
.否则
.如果 (寻找文本 (数2, “.”, , 假) ＝ -1)
数2 ＝ 数2 ＋ “.”
编辑框_输入内容.内容 ＝ 数2
.否则
.如果结束
.如果结束
.子程序 _按钮_退格_被单击
.如果 (数2 ＝ “”)
数1 ＝ 文本替换 (数1, 取文本长度 (数1), 1, )
编辑框_输入内容.内容 ＝ 数1
.否则
数2 ＝ 文本替换 (数2, 取文本长度 (数2), 1, )
编辑框_输入内容.内容 ＝ 数2
.如果结束
.子程序 __启动窗口_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.' 如果 (键代码 ＝ 43 或 键代码 ＝ 45 或 键代码 ＝ 94 或 键代码 ＝ 47)
.' 如果 (数1 ≠ “”)
' 计算符号 ＝ 到文本 (键代码)
.否则
' 信息框 (“请先输入数字！”, 0, )
.如果结束
.' 如果 (数2 ≠ “”)
' 编辑框_计算结果.内容 ＝ 到文本 (到数值 (数1) ＋ 到数值 (数2))
' 数1 ＝ 编辑框_计算结果.内容
' 数2 ＝ “”
.否则
.如果结束
.否则
.' 如果 (计算符号 ＝ “”)
' 数1 ＝ 数1 ＋ 到文本 (键代码)
' 编辑框_输入内容.内容 ＝ 数1
.否则
.' 如果 (计算符号 ≠ “=”)
' 数2 ＝ 数2 ＋ 到文本 (键代码)
' 编辑框_输入内容.内容 ＝ 数2
.否则
' 信息框 (“请先按运算符号！”, 0, )
.如果结束
.如果结束
.如果结束
