UC知道vb计算器程序
来源：百度知道 编辑：UC知道 时间：2024/09/24 10:26:29
2.基本要求
输入一个简单的四则运算公式，要求能够正确进行运算并输出最后结果。基本要求是+-*/四则运算，并支持运算符的优先级。
3.创新要求
创新方向提示如下：
★ 添加对括号的运算处理，包括多括号及括号嵌套等。
★ 增加对函数的运算处理能力，包含常用的数学运算，比如abs(),sqr()等。
★ 能够输出详细的运算过程及每一步运算的结果。
输入一个简单的四则运算公式，要求能够正确进行运算并输出最后结果。基本要求是+-*/四则运算，并支持运算符的优先级。
3.创新要求
创新方向提示如下：
★ 添加对括号的运算处理，包括多括号及括号嵌套等。
★ 增加对函数的运算处理能力，包含常用的数学运算，比如abs(),sqr()等。
★ 能够输出详细的运算过程及每一步运算的结果。
欢迎看一下我的计算器，
有程序界面，
你可以参考一下，添加运算功能。
http://hi.baidu.com/jack%5Fican/blog/item/f3ab762acc95133a5243c1a2.html
说明：1.共有4个文本框其，其中三个是填入或输出数据的（名称分别是：txta txtb txtc），剩下的那个是符号(txtd)2.共7个按钮，4个是符号按钮，一个计算，一个清零．这是我弄的程序”袖珍计算器”代码也是自己编写的，代码如下：通用声明Dim j As Integer '定义j为整型
Private Sub Text1_Change()End SubPrivate Sub Command1_Click()
txtfuhao.Text = "+" '将”＋”显示到文本框txtfuhao.Text中
End SubPrivate Sub Command2_Click()
txtfuhao.Text = "-" ''将”-”显示到文本框txtfuhao.Text中
End SubPrivate Sub Command3_Click()
txtfuhao.Text = "×" '将”×”显示到文本框txtfuhao.Text中
End SubPrivate Sub Command4_Click()
txtfuhao.Text = "÷" 将”÷”'显示到文本框txtfuhao.Text中
End Sub
Private Sub Command5_Click()
Dim a, b, c As Integer
a = Val(txta.Text