计算器-表达式运算

烈马狂刀

.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 第一次分割, 文本型, , "0"
.程序集变量 第二次分割, 文本型, , "0"
.程序集变量 第三次分割, 文本型, , "0"
.程序集变量 加减乘除四则运算, 文本型, , "0"
.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量 结果1, 双精度小数型
.局部变量 结果2, 双精度小数型
.局部变量 和, 双精度小数型
' 用子文本替换可以分割减法
' 用标签可以更美观
标签1.标题 ＝ 子文本替换 (编辑框1.内容, “-”, “+-”, 1, , 真)
第一次分割 ＝ 分割文本 (标签1.标题, “+”, )
调试输出 (第一次分割)
.计次循环首 (取数组成员数 (第一次分割), i)
    第二次分割 ＝ 分割文本 (第一次分割 [i], “*”, )
    ' 调试输出 (第二次分割)
    结果1 ＝ 1
    .计次循环首 (取数组成员数 (第二次分割), i)
        .如果 (寻找文本 (第二次分割 [i], “/”, , 假) ＝ -1)
            ' 乘法计算
            结果1 ＝ 结果1 × 到数值 (第二次分割 [i])
            结果2 ＝ 0
            ' 调试输出 (结果1)
        .否则
            ' 除法计算
            第三次分割 ＝ 分割文本 (第二次分割 [i], “/”, )
            结果2 ＝ 结果1 × 到数值 (第三次分割 [1])
            .变量循环首 (2, 取数组成员数 (第三次分割), 1, i)
                结果2 ＝ 结果2 ÷ 到数值 (第三次分割 [i])
            .变量循环尾 ()
            结果1 ＝ 0
        .如果结束
    .计次循环尾 ()
    ' 调试输出 (第三次分割)
    调试输出 (结果1)
    调试输出 (结果2)
    加入成员 (加减乘除四则运算, 到文本 (结果1))
    加入成员 (加减乘除四则运算, 到文本 (结果2))
.计次循环尾 ()
.计次循环首 (取数组成员数 (加减乘除四则运算), i)
    和 ＝ 和 ＋ 到数值 (加减乘除四则运算 [i])
.计次循环尾 ()
编辑框2.内容 ＝ 到文本 (和)
清除数组 (第一次分割)
清除数组 (第二次分割)
清除数组 (第三次分割)
清除数组 (加减乘除四则运算)

烈马狂刀

谢谢，我会继续努力。

文武双全1149

nice，支持开源