计算器加减乘除

小生真很怕怕啊

自己画出数字和乘除加减按钮 ，点击加减乘除的按钮的时候， 自动在变量上把编辑框的内容应用上去并加上分隔符，例如：

编辑框的内容=518*15+100
变量的内容=518|*|15|+|100
然后按下等于号的时候，自动分割排序，然后分割完列出去排序 每三个数组为一组 然后判断是什么符号 如：

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

子程序1 ()

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
是否排序	逻辑型

变量名	类 型	静态	数组	备 注
arr	文本型		0
a	整数型
结果	双精度小数型
计次	整数型
arr2	文本型		0
i	整数型

等待计算的内容 ＝ “158|*|180|-|52|/|2|+|5”
arr ＝ 分割文本 (等待计算的内容, “|”, )
如果真 (是否排序 ＝ 真)  ' 乘除加减排序
判断循环首 (真)
计次 ＝ 计次 ＋ 1
a ＝ a ＋ 2
如果真 (a ＞ 取数组成员数 (arr))
跳出循环 ()
如果真 (arr [a] ＝ “*”)
加入成员 (arr2, arr [a － 1] ＋ “|” ＋ arr [a] ＋ “|” ＋ arr [a ＋ 1])

判断循环尾 ()
计次 ＝ 0
a ＝ 0
判断循环首 (真)
计次 ＝ 计次 ＋ 1
a ＝ a ＋ 2
如果真 (a ＞ 取数组成员数 (arr))
跳出循环 ()
如果真 (arr [a] ＝ “/”)
加入成员 (arr2, arr [a － 1] ＋ “|” ＋ arr [a] ＋ “|” ＋ arr [a ＋ 1])

判断循环尾 ()
计次 ＝ 0
a ＝ 0
判断循环首 (真)
计次 ＝ 计次 ＋ 1
a ＝ a ＋ 2
如果真 (a ＞ 取数组成员数 (arr))
跳出循环 ()
如果真 (arr [a] ＝ “+”)
加入成员 (arr2, arr [a － 1] ＋ “|” ＋ arr [a] ＋ “|” ＋ arr [a ＋ 1])

判断循环尾 ()
计次 ＝ 0
a ＝ 0
判断循环首 (真)
计次 ＝ 计次 ＋ 1
a ＝ a ＋ 2
如果真 (a ＞ 取数组成员数 (arr))
跳出循环 ()
如果真 (arr [a] ＝ “-”)
加入成员 (arr2, arr [a － 1] ＋ “|” ＋ arr [a] ＋ “|” ＋ arr [a ＋ 1])

判断循环尾 ()
等待计算的内容 ＝ “”
计次循环首 (取数组成员数 (arr2), i)
等待计算的内容 ＝ 等待计算的内容 ＋ arr2 [i] ＋ “|”
计次循环尾 ()
arr ＝ 分割文本 (等待计算的内容, “|”, )
a ＝ 0
计次 ＝ 0
判断循环首 (真)
计次 ＝ 计次 ＋ 1
a ＝ a ＋ 2
如果真 (a ＞ 取数组成员数 (arr))
跳出循环 ()
如果 (计次 ＝ 1)
如果真 (arr [a] ＝ “*”)
结果 ＝ 到小数 (arr [a － 1]) × 到小数 (arr [a ＋ 1])
如果真 (arr [a] ＝ “/”)
结果 ＝ 到数值 (arr [a － 1]) ÷ 到数值 (arr [a ＋ 1])
如果真 (arr [a] ＝ “-”)
结果 ＝ 到数值 (arr [a － 1]) － 到数值 (arr [a ＋ 1])
如果真 (arr [a] ＝ “+”)
结果 ＝ 到数值 (arr [a － 1]) ＋ 到数值 (arr [a ＋ 1])

如果真 (arr [a] ＝ “*”)
结果 ＝ 结果 × 到数值 (arr [a ＋ 1])
如果真 (arr [a] ＝ “/”)
结果 ＝ 结果 ÷ 到数值 (arr [a ＋ 1])
如果真 (arr [a] ＝ “-”)
结果 ＝ 结果 － 到数值 (arr [a ＋ 1])
如果真 (arr [a] ＝ “+”)
结果 ＝ 结果 ＋ 到数值 (arr [a ＋ 1])


结果 ＝ 四舍五入 (结果, 2)
判断循环尾 ()
信息框 (“计算结果：” ＋ 到文本 (结果), 0, , )

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 子程序1 ()<br /> <br /> .子程序 子程序1<br /> .参数 是否排序, 逻辑型, 可空<br /> .局部变量 arr, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 结果, 双精度小数型<br /> .局部变量 计次, 整数型<br /> .局部变量 arr2, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 等待计算的内容 ＝ “158|*|180|-|52|/|2|+|5”<br /> arr ＝ 分割文本 (等待计算的内容, “|”, )<br /> .如果真 (是否排序 ＝ 真)  ' 乘除加减排序<br />     .判断循环首 (真)<br />         计次 ＝ 计次 ＋ 1<br />         a ＝ a ＋ 2<br />         .如果真 (a ＞ 取数组成员数 (arr))<br />             跳出循环 ()<br />         .如果真结束<br />         .如果真 (arr [a] ＝ “*”)<br />             加入成员 (arr2, arr [a － 1] ＋ “|” ＋ arr [a] ＋ “|” ＋ arr [a ＋ 1])<br />         .如果真结束<br /> <br />     .判断循环尾 ()<br />     计次 ＝ 0<br />     a ＝ 0<br />     .判断循环首 (真)<br />         计次 ＝ 计次 ＋ 1<br />         a ＝ a ＋ 2<br />         .如果真 (a ＞ 取数组成员数 (arr))<br />             跳出循环 ()<br />         .如果真结束<br />         .如果真 (arr [a] ＝ “/”)<br />             加入成员 (arr2, arr [a － 1] ＋ “|” ＋ arr [a] ＋ “|” ＋ arr [a ＋ 1])<br />         .如果真结束<br /> <br />     .判断循环尾 ()<br />     计次 ＝ 0<br />     a ＝ 0<br />     .判断循环首 (真)<br />         计次 ＝ 计次 ＋ 1<br />         a ＝ a ＋ 2<br />         .如果真 (a ＞ 取数组成员数 (arr))<br />             跳出循环 ()<br />         .如果真结束<br />         .如果真 (arr [a] ＝ “+”)<br />             加入成员 (arr2, arr [a － 1] ＋ “|” ＋ arr [a] ＋ “|” ＋ arr [a ＋ 1])<br />         .如果真结束<br /> <br />     .判断循环尾 ()<br />     计次 ＝ 0<br />     a ＝ 0<br />     .判断循环首 (真)<br />         计次 ＝ 计次 ＋ 1<br />         a ＝ a ＋ 2<br />         .如果真 (a ＞ 取数组成员数 (arr))<br />             跳出循环 ()<br />         .如果真结束<br />         .如果真 (arr [a] ＝ “-”)<br />             加入成员 (arr2, arr [a － 1] ＋ “|” ＋ arr [a] ＋ “|” ＋ arr [a ＋ 1])<br />         .如果真结束<br /> <br />     .判断循环尾 ()<br />     等待计算的内容 ＝ “”<br />     .计次循环首 (取数组成员数 (arr2), i)<br />         等待计算的内容 ＝ 等待计算的内容 ＋ arr2 <i> ＋ “|”<br />     .计次循环尾 ()<br />     arr ＝ 分割文本 (等待计算的内容, “|”, )<br /> <br /> .如果真结束<br /> a ＝ 0<br /> 计次 ＝ 0<br /> .判断循环首 (真)<br />     计次 ＝ 计次 ＋ 1<br />     a ＝ a ＋ 2<br />     .如果真 (a ＞ 取数组成员数 (arr))<br />         跳出循环 ()<br />     .如果真结束<br />     .如果 (计次 ＝ 1)<br />         .如果真 (arr [a] ＝ “*”)<br />             结果 ＝ 到小数 (arr [a － 1]) × 到小数 (arr [a ＋ 1])<br />         .如果真结束<br />         .如果真 (arr [a] ＝ “/”)<br />             结果 ＝ 到数值 (arr [a － 1]) ÷ 到数值 (arr [a ＋ 1])<br />         .如果真结束<br />         .如果真 (arr [a] ＝ “-”)<br />             结果 ＝ 到数值 (arr [a － 1]) － 到数值 (arr [a ＋ 1])<br />         .如果真结束<br />         .如果真 (arr [a] ＝ “+”)<br />             结果 ＝ 到数值 (arr [a － 1]) ＋ 到数值 (arr [a ＋ 1])<br />         .如果真结束<br /> <br />     .否则<br />         .如果真 (arr [a] ＝ “*”)<br />             结果 ＝ 结果 × 到数值 (arr [a ＋ 1])<br />         .如果真结束<br />         .如果真 (arr [a] ＝ “/”)<br />             结果 ＝ 结果 ÷ 到数值 (arr [a ＋ 1])<br />         .如果真结束<br />         .如果真 (arr [a] ＝ “-”)<br />             结果 ＝ 结果 － 到数值 (arr [a ＋ 1])<br />         .如果真结束<br />         .如果真 (arr [a] ＝ “+”)<br />             结果 ＝ 结果 ＋ 到数值 (arr [a ＋ 1])<br />         .如果真结束<br /> <br />     .如果结束<br /> <br />     结果 ＝ 四舍五入 (结果, 2)<br /> .判断循环尾 ()<br /> 信息框 (“计算结果：” ＋ 到文本 (结果), 0, , )

12:30错爱

下载在哪里啊

一曲长歌入冬流

#在这里快速回复##在这里快速回复##在这里快速回复##在这里快速回复#

明天你好呀！

66666666666666

wojiaoyangkun

6666666666666666666666666666666666666666666666666666666666666666666666666

kk2apple

支持开源~！感谢分享 666

shan132

支持开源~！感谢分享 666

年轻人111

感谢分享  牛逼 感谢大佬

omoloi123

支持支持 学习了

kyo9766

思路很新颖啊，感谢分享