button ＝
取事件组件 ()
如果真 (button.标题 ＝
“清除”)
连续赋值 (“”, 编辑框1.内容, 编辑框2.内容
)连续赋值 (0, 数a, 数b, 符号
)运算 ＝ 假
编辑框1.
获取焦点 ()返回 ()
如果真 (运算 ＝
假)符号 ＝
寻找文本 (“＋－×÷”, button.标题, ,
假)判断 (符号 ≠ -1
且 运算 ＝
假)如果真 (取文本左边 (编辑框1.内容, 2
) ＝
“”) 编辑框1.
加入文本 (“-”)返回 ()符号 ＝ (符号 ＋ 1) ÷ 2运算 ＝ 真
数a ＝
到数值 (编辑框1.内容
) 编辑框2.内容 ＝ 编辑框1.内容 ＋ button.标题
编辑框1.内容 ＝
“”
判断 (button.标题 ＝
“=” 且 符号 ≠ 0
)
数b ＝
到数值 (编辑框1.内容
)计算程序 (符号
)编辑框2.内容 ＝
“”判断 (button.标题 ＝
“.”)连续赋值 (0, 数a, 数b, 符号
)运算 ＝ 假
如果真 (取文本左边 (编辑框1.内容, 1
) =
“.”)编辑框1.
加入文本 (“0”) 
编辑框1.加入文本 (button.标题)
如果真 (button.标题 ≠
“”)
编辑框1.
加入文本 (button.标题
)
计算器.e
(14.9 KB, 下载次数: 12)
