马上注册，结交更多易友，享用更多功能，让你轻松玩转觅风论坛。
您需要 登录 才可以下载或查看，没有账号？立即注册
x
.版本 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.内容 ＝ 到文本 (和)
清除数组 (第一次分割)
清除数组 (第二次分割)
清除数组 (第三次分割)
清除数组 (加减乘除四则运算)
|
