学习自己修改的计算器

胖Vs子

.版本 2
.程序集 窗口程序集_启动窗口
.程序集变量 程序集_数据, 整数型
.程序集变量 程序集_运算符, 文本型
.子程序 _按钮1_被单击
编辑框1.加入文本 (“1”)

.子程序 _按钮2_被单击
编辑框1.加入文本 (“2”)

.子程序 _按钮3_被单击
编辑框1.加入文本 (“3”)

.子程序 _按钮4_被单击
编辑框1.加入文本 (“4”)

.子程序 _按钮5_被单击
编辑框1.加入文本 (“5”)

.子程序 _按钮6_被单击
编辑框1.加入文本 (“6”)

.子程序 _按钮7_被单击
编辑框1.加入文本 (“7”)

.子程序 _按钮8_被单击
编辑框1.加入文本 (“8”)

.子程序 _按钮9_被单击
编辑框1.加入文本 (“9”)

.子程序 _按钮0_被单击
编辑框1.加入文本 (“0”)

.子程序 _按钮_小数点_被单击
编辑框1.加入文本 (“.”)

.子程序 _按钮_加法_被单击
.局部变量 a, 整数型
点击次数 ＝ 点击次数 ＋ 1
程序集_运算符 ＝ “+”
.判断开始 (点击次数 ＝ 1)
    程序集_数据 ＝ 到数值 (编辑框1.内容)
    编辑框1.内容 ＝ “”
.判断 (点击次数 ＞ 1)
    a ＝ 到整数 (编辑框1.内容)
    编辑框1.内容 ＝ “”
    程序集_数据 ＝ 程序集_数据 ＋ a
.默认
.判断结束

.子程序 _按钮_减法_被单击
.局部变量 b, 整数型
点击次数 ＝ 点击次数 ＋ 1
程序集_运算符 ＝ “-”
.判断开始 (点击次数 ＝ 1)
    程序集_数据 ＝ 到数值 (编辑框1.内容)
    编辑框1.内容 ＝ “”
.判断 (点击次数 ＞ 1)
    b ＝ 到整数 (编辑框1.内容)
    编辑框1.内容 ＝ “”
    程序集_数据 ＝ 程序集_数据 － b
.默认
.判断结束

.子程序 _按钮_乘法_被单击
.局部变量 c, 整数型
点击次数 ＝ 点击次数 ＋ 1
程序集_运算符 ＝ “*”
.判断开始 (点击次数 ＝ 1)
    程序集_数据 ＝ 到数值 (编辑框1.内容)
    编辑框1.内容 ＝ “”
.判断 (点击次数 ＞ 1)
    c ＝ 到整数 (编辑框1.内容)
    编辑框1.内容 ＝ “”
    程序集_数据 ＝ 程序集_数据 × c
.默认
.判断结束

.子程序 _按钮_除法_被单击
.局部变量 d, 整数型
点击次数 ＝ 点击次数 ＋ 1
程序集_运算符 ＝ “/”
.判断开始 (点击次数 ＝ 1)
    程序集_数据 ＝ 到数值 (编辑框1.内容)
    编辑框1.内容 ＝ “”
.判断 (点击次数 ＞ 1)
    d ＝ 到整数 (编辑框1.内容)
    编辑框1.内容 ＝ “”
    程序集_数据 ＝ 程序集_数据 ÷ d
.默认
.判断结束

.子程序 _按钮_等于_被单击
.局部变量 b, 整数型
.局部变量 结果, 整数型
b ＝ 到整数 (编辑框1.内容)
.判断开始 (程序集_运算符 ＝ “+”)
    结果 ＝ 程序集_数据 ＋ b
.判断 (程序集_运算符 ＝ “-”)
    结果 ＝ 程序集_数据 － b
.判断 (程序集_运算符 ＝ “*”)
    结果 ＝ 程序集_数据 × b
.判断 (程序集_运算符 ＝ “/”)
    结果 ＝ 程序集_数据 ÷ b
.默认
.判断结束
编辑框1.内容 ＝ 到文本 (结果)
程序集_数据 ＝ 结果
点击次数 ＝ 0
.子程序 _按钮_清除_被单击
编辑框1.内容 ＝ “”
程序集_数据 ＝ 到整数 (“”)

.子程序 _按钮_删除_被单击
.局部变量 w, 文本型
w ＝ 到文本 (取文本左边 (编辑框1.内容, 取文本长度 (编辑框1.内容) － 1))
编辑框1.内容 ＝ w

hackerdevelop

加上求余  求模  平方 开方等等 就完美了。