Dim op As String
Dim num1 As Integer
Dim num2 As Integer


Private Sub Command1_Click()
Text1.Text = Text1.Text & 1
End Sub


Private Sub Command12_Click()
num2 = Text1.Text
If op = "+" Then
Text1.Text = num1 + num2
ElseIf op = "-" Then
Text1.Text = num1 - num2
ElseIf op = "*" Then
Text1.Text = num1 * num2
ElseIf op = "/" Then
Text1.Text = num1 / num2
End If
End Sub

Private Sub Command14_Click()
num1 = Text1.Text
Text1.Text = ""
op = "-"
End Sub

Private Sub Command15_Click()
num1 = Text1.Text
Text1.Text = ""
op = "/"
End Sub

Private Sub Command16_Click()
num1 = Text1.Text
Text1.Text = ""
op = "*"
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text & 2
End Sub


Private Sub Command3_Click()
Text1.Text = Text1.Text & 3
End Sub


Private Sub Command4_Click()
Text1.Text = Text1.Text & 4
End Sub


Private Sub Command5_Click()
Text1.Text = Text1.Text & 5
End Sub


Private Sub Command6_Click()
Text1.Text = Text1.Text & 6
End Sub


Private Sub Command7_Click()
Text1.Text = Text1.Text & 7
End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text & 8
End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text & 9
End Sub

Private Sub Command10_Click()
Text1.Text = Text1.Text & "."
End Sub


Private Sub Command11_Click()
Text1.Text = Text1.Text & 0
End Sub

Private Sub Command13_Click()
num1 = Text1.Text
Text1.Text = ""
op = "+"
End Sub
Private Sub Command17_Click()
Text1.Text = "0"
End Sub

Private Sub Form_Load()

End Sub




이젠 계산기 Ui 만들 차례임 -3-