SLIP
21_1
Option
Explicit
Dim
num1 As Integer
Dim
num2 As Integer
Dim
result As Integer
Private
Sub cmdAdd_Click()
num1
= Val(Text1.Text)
num2
= Val(Text2.Text)
result
= num1 + num2
lblAnswer.Caption
= "Addition is "& result
End
Sub
Private
Sub cmdDiv_Click()
num1
= Val(Text1.Text)
num2
= Val(Text2.Text)
result
= num1 / num2
lblAnswer.Caption
= "Division is "& result
End
Sub
Private
Sub cmdMul_Click()
num1
= Val(Text1.Text)
num2
= Val(Text2.Text)
result
= num1 * num2
lblAnswer.Caption
= "Multiplication is "& result
End
Sub
Private
Sub cmdSub_Click()
num1
= Val(Text1.Text)
num2
= Val(Text2.Text)
result
= num1 - num2
lblAnswer.Caption
= "Subtraction is "& result
End
Sub
Private
Sub Text1_Click()
Text1.Text
= ""
End
Sub
Private
Sub Text2_Click()
Text2.Text
= ""
End
Sub
No comments:
Post a Comment
Note: only a member of this blog may post a comment.