窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | | 变量名 | 类 型 | 数组 | 备 注 | 程序集_运算符 | 文本型 | | 程序集_前半算式 | 双精度小数型 | | 程序集_后半算式 | 双精度小数型 | |
编辑框_计算显示. 加入文本 (“1”)编辑框_计算显示. 加入文本 (“2”)编辑框_计算显示. 加入文本 (“3”)编辑框_计算显示. 加入文本 (“4”)编辑框_计算显示.内容 = 取文本左边 (编辑框_计算显示.内容, 取文本长度 (编辑框_计算显示.内容 ) - 1 )编辑框_计算显示.内容 = “”编辑框_计算显示. 加入文本 (“5”)编辑框_计算显示. 加入文本 (“6”)编辑框_计算显示. 加入文本 (“7”)编辑框_计算显示. 加入文本 (“8”)编辑框_计算显示. 加入文本 (“9”)编辑框_计算显示. 加入文本 (“0”)程序集_运算符 = “加”程序集_前半算式 = 到数值 (编辑框_计算显示.内容 )编辑框_计算显示.内容 = “”程序集_运算符 = “减”程序集_前半算式 = 到数值 (编辑框_计算显示.内容 )编辑框_计算显示.内容 = “”程序集_运算符 = “乘”程序集_前半算式 = 到数值 (编辑框_计算显示.内容 )编辑框_计算显示.内容 = “”程序集_运算符 = “除”程序集_前半算式 = 到数值 (编辑框_计算显示.内容 )编辑框_计算显示.内容 = “”程序集_后半算式 = 到数值 (编辑框_计算显示.内容 )判断 (程序集_运算符 = “加”)编辑框_计算显示.内容 = 到文本 (程序集_前半算式 ) + “+” + 到文本 (程序集_后半算式 ) + “=” + 到文本 (程序集_前半算式 + 程序集_后半算式 )判断 (程序集_运算符 = “减”)编辑框_计算显示.内容 = 到文本 (程序集_前半算式 - 程序集_后半算式 )判断 (程序集_运算符 = “乘”)编辑框_计算显示.内容 = 到文本 (程序集_前半算式 ) + “×” + 到文本 (程序集_后半算式 ) + “=” + 到文本 (程序集_前半算式 × 程序集_后半算式 )判断 (程序集_运算符 = “除”)如果真 (程序集_后半算式 = 0 )信息框 (“除数不能为0,请重新输入”, 0, , )返回 ()编辑框_计算显示.内容 = 到文本 (程序集_前半算式 ÷ 程序集_后半算式)程序集_前半算式 = 0 程序集_后半算式 = 0 程序集_运算符 = “”编辑框_计算显示. 加入文本 (“-”) |