窗口程序集名 | 保 留 | 保 留 | 备 注 |
窗口程序集_启动窗口1 | | | |
变量名 | 类 型 | 数组 | 备 注 |
程序集_第一个参数 | 双精度小数型 | |
程序集_第二个参数 | 双精度小数型 | |
程序集_运算符 | 文本型 | |
程序集_是否继续计算 | 逻辑型 | |
程序集_点击数字 | 文本型 | |
程序集_计算结果 | 双精度小数型 | |
程序集_第一次按点 | 逻辑型 | |
程序集_是否可以四舍五入 | 逻辑型 | |
编辑框_算式.内容 =
“0”程序集_第一次按点 =
真 程序集_是否可以四舍五入 = 真
如果真 (编辑框_算式.内容 ≠
“0”) 编辑框_算式.
加入文本 (“0”)编辑框_过程.
加入文本 (“0”)程序集_点击数字 =
“1”点击数字 ()程序集_点击数字 =
“2”点击数字 ()程序集_点击数字 =
“3”点击数字 ()程序集_点击数字 =
“4”点击数字 ()程序集_点击数字 =
“5”点击数字 ()程序集_点击数字 =
“6”点击数字 ()程序集_点击数字 =
“7”点击数字 ()程序集_点击数字 =
“8”点击数字 ()程序集_点击数字 =
“9”点击数字 ()如果真 (程序集_第一次按点
) 如果 (编辑框_算式.内容 ≠
“0”) 输出调试文本 (编辑框_算式.内容
)编辑框_过程.
加入文本 (“.”)程序集_第一次按点 =
假 编辑框_过程.
加入文本 (“0.”)程序集_第一次按点 =
假 判断 (编辑框_算式.内容 =
“0”)编辑框_算式.内容 = 程序集_点击数字
编辑框_过程.
加入文本 (程序集_点击数字
)编辑框_算式.
加入文本 (程序集_点击数字
)编辑框_过程.
加入文本 (程序集_点击数字
)判断 (程序集_是否继续计算
) 计算结果 ()程序集_运算符 =
“+”编辑框_过程.
加入文本 (程序集_运算符
)程序集_运算符 =
“+”点击运算符 ()判断 (程序集_是否继续计算
) 计算结果 ()程序集_运算符 =
“-”编辑框_过程.
加入文本 (程序集_运算符
)程序集_运算符 =
“-”点击运算符 ()判断 (程序集_是否继续计算
) 计算结果 ()程序集_运算符 =
“*”编辑框_过程.
加入文本 (程序集_运算符
)程序集_运算符 =
“*”点击运算符 ()判断 (程序集_是否继续计算
) 计算结果 ()程序集_运算符 =
“/”编辑框_过程.
加入文本 (程序集_运算符
)程序集_运算符 =
“/”点击运算符 ()判断 (程序集_是否继续计算
) 计算结果 ()程序集_运算符 =
“取余数”编辑框_过程.
加入文本 (程序集_运算符
)程序集_运算符 =
“取余数”点击运算符 ()如果 (程序集_运算符 ≠
“”) 计算结果 ()程序集_是否继续计算 = 假
程序集_是否可以四舍五入 = 真
如果 (程序集_计算结果 = 0
)程序集_第一个参数 =
到小数 (编辑框_算式.内容
) 程序集_第一个参数 =
到小数 (程序集_计算结果
) 程序集_是否继续计算 = 真
编辑框_算式.内容 =
“0” 编辑框_过程.
加入文本 (程序集_运算符
)程序集_第一次按点 =
真 程序集_第二个参数 =
到小数 (编辑框_算式.内容
)判断 (程序集_运算符 =
“+”)程序集_计算结果 = 程序集_第一个参数 + 程序集_第二个参数
判断 (程序集_运算符 =
“-”)程序集_计算结果 = 程序集_第一个参数 - 程序集_第二个参数
判断 (程序集_运算符 =
“*”)程序集_计算结果 = 程序集_第一个参数 × 程序集_第二个参数
判断 (程序集_运算符 =
“/”)程序集_计算结果 = 程序集_第一个参数 ÷ 程序集_第二个参数
判断 (程序集_运算符 =
“取余数”)程序集_计算结果 = 程序集_第一个参数 % 程序集_第二个参数
编辑框_过程.
加入文本 (“=” +
到文本 (程序集_计算结果
))
程序集_第一个参数 = 程序集_计算结果 编辑框_算式.内容 =
“0” 编辑框_算式.内容 =
取文本左边 (编辑框_算式.内容,
取文本长度 (编辑框_算式.内容
) - 1
)编辑框_过程.内容 =
取文本左边 (编辑框_过程.内容,
取文本长度 (编辑框_过程.内容
) - 1
)如果真 (编辑框_算式.内容 =
“”)编辑框_算式.内容 =
“0”如果真 (编辑框_算式.内容 ≠
“0”)编辑框_过程.内容 =
取文本左边 (编辑框_过程.内容,
取文本长度 (编辑框_过程.内容
) -
取文本长度 (编辑框_算式.内容
))
编辑框_算式.内容 = “0”如果真 (程序集_是否可以四舍五入
)编辑框_过程.内容 =
取文本左边 (编辑框_过程.内容,
取文本长度 (编辑框_过程.内容
) -
取文本长度 (到文本 (程序集_计算结果
))
) +
到文本 (四舍五入 (到小数 (程序集_计算结果
), 3
))
编辑框_算式.内容 =
到文本 (四舍五入 (到小数 (程序集_计算结果
), 3
))
程序集_是否可以四舍五入 = 假