变量 组件集合 为 集合

变量 符号 为 集合

变量 第一数 为 双精度小数型

变量 第二数 为 双精度小数型 

变量 计算符号 为 整数型 = 5'0为+,1为-,2为×,3为÷,4为＝,5为无符号

事件 主窗口.创建完毕()

       组件集合 = 创建 集合

       符号 = 创建 集合

       组件集合.加入项目(按钮1)

       按钮1.置组件索引(0)

       按钮1.绑定事件(事件监听器1)

       组件集合.加入项目(按钮2)

       按钮2.置组件索引(1)

       按钮2.绑定事件(事件监听器1)

       组件集合.加入项目(按钮3)

       按钮3.置组件索引(2)

       按钮3.绑定事件(事件监听器1)

       组件集合.加入项目(按钮4)

       按钮4.置组件索引(3)

       按钮4.绑定事件(事件监听器1)

       组件集合.加入项目(按钮5)

       按钮5.置组件索引(4)

       按钮5.绑定事件(事件监听器1)

       组件集合.加入项目(按钮6)

       按钮6.置组件索引(5)

       按钮6.绑定事件(事件监听器1)

       组件集合.加入项目(按钮7)

       按钮7.置组件索引(6)

       按钮7.绑定事件(事件监听器1)

       组件集合.加入项目(按钮8)

       按钮8.置组件索引(7)

       按钮8.绑定事件(事件监听器1)

       组件集合.加入项目(按钮9)

       按钮9.置组件索引(8)

       按钮9.绑定事件(事件监听器1)

       组件集合.加入项目(按钮10)

       按钮10.置组件索引(9)

       按钮10.绑定事件(事件监听器1)

       组件集合.加入项目(按钮16)

       按钮16.置组件索引(10)

       按钮16.绑定事件(事件监听器1)

       符号.加入项目(按钮11)

       按钮11.置组件索引(0)

       按钮11.绑定事件(事件监听器2  )

       符号.加入项目(按钮12)

       按钮12.置组件索引(1)

       按钮12.绑定事件(事件监听器2  )

       符号.加入项目(按钮13)

       按钮13.置组件索引(2)

       按钮13.绑定事件(事件监听器2  )

       符号.加入项目(按钮14)

       按钮14.置组件索引(3)

       按钮14.绑定事件(事件监听器2  )

       符号.加入项目(按钮15)

       按钮15.置组件索引(4)

       按钮15.绑定事件(事件监听器2  )

结束 事件

事件 事件监听器1.被单击(组件索引 为 整数型)

       标签1.标题=标签1.标题 & 组件集合.取项目(组件索引).标题

       规范数字()

结束 事件

过程  规范数字()

       判断循环首 取文本左边(标签1.标题,1)="0" 且 取文本中间(标签1.标题,1,1)<>"."

              如果 标签1.标题="0" 则

                     退出

              结束 如果

              标签1.标题=取文本右边(标签1.标题,取文本长度(标签1.标题)-1)

       判断循环尾

       如果 取文本右边(标签1.标题,1)="." 则

              如果 寻找文本(标签1.标题,".",0)<</span>取文本长度(标签1.标题)-1 则

                     标签1.标题=取文本左边(标签1.标题,取文本长度(标签1.标题)-1)

              结束 如果

       结束 如果

结束 过程

事件 按钮17.被单击()

       标签1.标题="0"

结束 事件

事件 事件监听器2.被单击(组件索引 为 整数型)

       如果 计算符号 = 5 则

              第一数=标签1.标题

              弹出提示(第一数)

              标签1.标题=0

              判断 组件索引

                     分支 0

                            计算符号=0

                     分支 1

                            计算符号=1

                     分支 2

                            计算符号=2  

                     分支 3

                            计算符号=3  

              结束 判断

       否则

              第二数=标签1.标题

              判断 计算符号

                     分支 0

                            标签1.标题=大数相加(第一数,第二数)

                     分支 1

                            标签1.标题=大数相减(第一数,第二数)

                     分支 2

                            标签1.标题=大数相乘(第一数,第二数)     

                     分支 3

                            标签1.标题=大数相除(第一数,第二数,5)  

              结束 判断

              计算符号=5

                            判断 组件索引

                     分支 0

                            计算符号=0

                     分支 1

                            计算符号=0

                     分支 2

                            计算符号=2  

                     分支 3

                            计算符号=3  

              结束 判断

       结束 如果

结束 事件