VB6.0中实现计算器连加的问题

Question

这是等号部分。。其中 m3,m4的初值都设置为0 ，现在问题是 比如1+2，连续两次等于，结果是3,4,5,6而不是3,5,7.。不知道问题出在了哪里。。想请教下各位。。这学期刚学
m1是进行计算的第一个数，m2是第二个数

 Private Sub Command6_Click()
m2 = Val(Text1.Text)                          '等号取数2
If m3 = m1 Then
m1 = Val(Text1.Text)
m2 = m4
End If
m3 = m1
Select Case suanfa
Case "+"
Text1.Text = m1 + m2
m4 = Val(Text1.Text) - m1
Case "-"
Text1.Text = m1 - m2
m4 = m1 - Val(Text1.Text)
Case "*"
Text1.Text = m1 * m2
m4 = Val(Text1.Text) / m1
Case "/"
If (m2 = 0) Then
Text1.Text = "除数不能为0."
Else
Text1.Text = m1 / m2
m4 = m1 / Val(Text1.Text)
End If
End Select

End Sub

Answer 1

Case "+"
Text1.Text = m1 + m2
m1 = Val(Text1.Text)
其它类似