VB_2014_SLIP 21

 



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.