给你写了个例子，看看就OK了。可以把对应的加号换成其他运算符号。
Private Sub Command1_Click()
'在文本框 text1.text 中输入的格式需要是 X+Y 这中方式
Dim a As Double
Dim b As Double
a = Mid(Text1.Text, 1, InStr(Text1.Text, "+") - 1)
b = Mid(Text1.Text, InStr(Text1.Text, "+") + 1)
Text1.Text = a + b
End Sub
首先要定义俩全局变量，一个保存当前值，一个保存操作类型(加减乘除)
在加减乘除的按钮按下时，查看当前操作是不是加减乘除状态，是则调用等号功能，并对当前Text1的值保存到全局变量，对应操作也存到全局变量
其次，数字按钮按下时，首先要确定是不是加减乘除状态，是则更新当前值，清空Text1,把当前数字赋给Text1;不是则按照你现在的方式更改Text1
最后，等号功能，按照当前操作，拿全局变量当前值和Text1的值进行相应加减乘除
这样直接写好麻烦的,干脆直接给你重新写一个好吧~
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024