Dim a As Double
Dim b As Double
Dim c As Double
Dim d As Double
Dim e As Double
Private Sub Command1_Click()
i = 1
If a = 0 Then
Text1.Text = i
a = i
b = i
Else
Text1.Text = b * 10 + i
a = b * 10 + i
b = b * 10 + i
End If
End Sub
Private Sub Command10_Click()
d = b
a = 0
b = 0
c = 1
End Sub
Private Sub Command11_Click()
d = b
a = 0
b = 0
c = 2
End Sub
Private Sub Command12_Click()
d = b
a = 0
b = 0
c = 3
End Sub
Private Sub Command13_Click()
d = b
a = 0
b = 0
c = 4
End Sub
Private Sub Command14_Click()
Select Case c
Case "1"
Text1.Text = b + d
Case "2"
Text1.Text = d - b
Case "3"
Text1.Text = b * d
Case "4"
Text1.Text = d / b
End Select
End Sub
Private Sub Command15_Click()
i = 0
If a = 0 Then
Text1.Text = i
a = i
b = i
Else
Text1.Text = b * 10
a = b * 10
b = b * 10
End If
End Sub
Private Sub Command2_Click()
i = 2
If a = 0 Then
Text1.Text = i
a = i
b = i
Else
Text1.Text = b * 10 + i
a = b * 10 + i
b = b * 10 + i
End If
End Sub
Private Sub Command3_Click()
i = 3
If a = 0 Then
Text1.Text = i
a = i
b = i
Else
Text1.Text = b * 10 + i
a = b * 10 + i
b = b * 10 + i
End If
End Sub
Private Sub Command4_Click()
i = 4
If a = 0 Then
Text1.Text = i
a = i
b = i
Else
Text1.Text = b * 10 + i
a = b * 10 + i
b = b * 10 + i
End If
End Sub
Private Sub Command5_Click()
i = 5
If a = 0 Then
Text1.Text = i
a = i
b = i
Else
Text1.Text = b * 10 + i
a = b * 10 + i
b = b * 10 + i
End If
End Sub
Private Sub Command6_Click()
i = 6
If a = 0 Then
Text1.Text = i
a = i
b = i
Else
Text1.Text = b * 10 + i
a = b * 10 + i
b = b * 10 + i
End If
End Sub
Private Sub Command7_Click()
i = 7
If a = 0 Then
Text1.Text = i
a = i
b = i
Else
Text1.Text = b * 10 + i
a = b * 10 + i
b = b * 10 + i
End If
End Sub
Private Sub Command8_Click()
i = 8
If a = 0 Then
Text1.Text = i
a = i
b = i
Else
Text1.Text = b * 10 + i
a = b * 10 + i
b = b * 10 + i
End If
End Sub
Private Sub Command9_Click()
i = 9
If a = 0 Then
Text1.Text = i
a = i
b = i
Else
Text1.Text = b * 10 + i
a = b * 10 + i
b = b * 10 + i
End If
End Sub
问题是在按了=于之后得到的答案不能在进行第2次加
如1+2=3
+1=3
这个只在第个上加起的那个帮下我
