一个文本框
2个按钮，一个加号，一个等于号，效果要像系统计算器那样，怎么写的？

Public a As Integer, b As Integer
Private Sub Command1_Click()
a = Val(Text1.Text)
Text1.Text = ""
End Sub
 
Private Sub Command2_Click()
b = Text1
Text1 = a + b
End Sub
我也是个新手，这是我想的期待高手解答

你写这个已经很不错了，不需要再解答了。

谢谢楼上，如果按加号也要有等于号的效果呢？就像计算器那样的

我也想不出来，但我写了个，但不能实现你那功能
Option Explicit
Public a As Integer, b As Integer
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = Val(Text1.Text)
Text1 = ""  '这里每次单击都要清空，所以后面的不能实现，我想到用个if来判断前面执行，但也不行
If (Not Text1 = "") Then
b = Val(Text1)
Text1 = a + b
End If
End Sub

Private Sub Command2_Click()
b = Text1
Text1 = a + b
End Sub
呵呵，期待高手

把等于按钮的代码复制到加号按钮中就可以实现。

这是我看了网上的资料，自己理解以后，照猫画虎做的个计算器，欢迎专家给提意见。

我试过了，可是不行才问的

谢谢

Dim a as Integer,b as Integer
private sub command1_click()  'command1为加号命令按钮
a=val(text1.text)
text1.text=""
end sub
private sub command2_click() ''command1为等号命令按钮
b=a+val(text1.text)
text1.text=b
end sub
这道题最主要的还是变量附值的知识，以及变量的定义