我也想不出来,但我写了个,但不能实现你那功能
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
呵呵,期待高手