楓情兒語﹏〝ღ 新的旅程

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer

a = Text1
b = Text2
Label3 = a & "+" & b & "=" & a + b

End Sub

Private Sub Command2_Click()
Dim a As Integer
Dim b As Integer

a = Text1
b = Text2
Label3 = a & "-" & b & "=" & a - b

End Sub

Private Sub Command3_Click()
Dim a As Integer
Dim b As Integer

a = Text1
b = Text2
Label3 = a & "*" & b & "=" & a * b
End Sub

Private Sub Command4_Click()
Dim a As Integer
Dim b As Integer

a = Text1
b = Text2
Label3 = a & "/" & b & "=" & a / b
End Sub