VB计算器编写程序RT,求VB计
欢迎看一下我的计算器，
有程序界面，
你可以参考一下，添加运算功能。
说明：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...全部
欢迎看一下我的计算器，
有程序界面，
你可以参考一下，添加运算功能。
说明：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) '将txta。Text里的内容转化为数值型,然后再赋给a
b = Val(txtb。Text) '将txtb。Text里的内容转化为数值型,然后再赋给b
If txtfuhao。
Text = "+" Then '运算过程
c = a + b '运算过程
ElseIf txtfuhao。Text = "-" Then '运算过程
c = a - b '运算过程
ElseIf txtfuhao。
Text = "÷" Then '运算过程
c = a / b '运算过程
ElseIf txtfuhao。Text = "×" Then '运算过程
c = a * b '运算过程
Else
j = MsgBox("您输入的符号不正确", vbOKOnly, "错误信息")
End If
txtc。
Text = c '将运算结果c输出到文本框txtc中
End SubPrivate Sub Command6_Click()
txta。Text = "" '将空字符输入到文本框内（刷新）
txtb。
Text = "" '将空字符输入到文本框内（刷新）
txtc。Text = "" '将空字符输入到文本框内（刷新）
txtfuhao。
Text = "" '将空字符输入到文本框内（刷新）
End SubPrivate Sub Command7_Click()
End '结束程序
End SubPrivate Sub Form_Load()End Sub
参考资料：
要的话请发邮件到：329156195@ 叫我要，我再发到你的邮箱里！。收起
