Visual Basic 6.0 program to perform Arithmetic Operations

Interface

Program Code

Private Sub cmdADD_Click()

Text3.Text = (Val(Text1.Text)) + (Val(Text2.Text))

End Sub

Private Sub cmdSUB_Click()

Text3.Text = (Val(Text1.Text)) - (Val(Text2.Text))

End Sub

Private Sub cmdMULT_Click()

Text3.Text = (Val(Text1.Text)) * (Val(Text2.Text))

End Sub

Private Sub cmdDIV_Click()

Text3.Text = (Val(Text1.Text)) / (Val(Text2.Text))

End Sub