Program 1

List of Program

1) WAP to perform arithmetic operation using command buttons. (Declare variables globally).

Dim A%, B%, C%

Private Sub Command1_Click()

     A = Text1

    B = Text2

    C = A + B

    Text3 = C

End Sub

Private Sub Command2_Click()

    A = Text1

    B = Text2

    C = A - B

    Text3 = C

End Sub

Private Sub Command3_Click()

    A = Text1

    B = Text2

    C = A * B

    Text3 = C

End Sub

Private Sub Command4_Click()

    A = Text1

    B = Text2

    C = A / B

    Text3 = C

End Sub