计算器-无模块，纯源码，自己做的，没有参考别人的
.版本 2.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 第一次分割, 文本型, , "0"
.程序集变量 第二次分割, 文本型, , "0"
.程序集变量 第三次分割, 文本型, , "0"
.程序集变量 加减乘除四则运算, 文本型, , "0"
.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 结果1, 双精度小数型
.局部变量 结果2, 双精度小数型
.局部变量 和, 双精度小数型
' 用子文本替换可以分割减法
' 用标签可以更美观
标签1.标题 ＝ 子文本替换 (编辑框1.内容, “-”, “+-”, 1, , 真)
第一次分割 ＝ 分割文本 (标签1.标题, “+”, )
调试输出 (第一次分割)
.计次循环首 (取数组成员数 (第一次分割), i)
第二次分割 ＝ 分割文本 (第一次分割 , “*”, )
' 调试输出 (第二次分割)
结果1 ＝ 1
.计次循环首 (取数组成员数 (第二次分割), i)
.如果 (寻找文本 (第二次分割 , “/”, , 假) ＝ -1)
' 乘法计算
结果1 ＝ 结果1 × 到数值 (第二次分割 )
结果2 ＝ 0
' 调试输出 (结果1)
.否则
' 除法计算
第三次分割 ＝ 分割文本 (第二次分割 , “/”, )
结果2 ＝ 结果1 × 到数值 (第三次分割 )
.变量循环首 (2, 取数组成员数 (第三次分割), 1, i)
结果2 ＝ 结果2 ÷ 到数值 (第三次分割 )
.变量循环尾 ()
结果1 ＝ 0
.如果结束
.计次循环尾 ()
' 调试输出 (第三次分割)
调试输出 (结果1)
调试输出 (结果2)
加入成员 (加减乘除四则运算, 到文本 (结果1))
加入成员 (加减乘除四则运算, 到文本 (结果2))
.计次循环尾 ()
.计次循环首 (取数组成员数 (加减乘除四则运算), i)
和 ＝ 和 ＋ 到数值 (加减乘除四则运算 )
.计次循环尾 ()
编辑框2.内容 ＝ 到文本 (和)
清除数组 (第一次分割)
清除数组 (第二次分割)
清除数组 (第三次分割)
清除数组 (加减乘除四则运算)
前来支持~~~~~~~~~~~~~~~~~~~ 谢谢楼主的辛苦分享 很给力。。。。很喜欢 顶一个了 非常不错，感谢分享！ 前来支持~~~~~~~~~~~~~~~~~~~ 学习了，这就去试试 支持一下，期待更多东西 我表示压力很大