Public Class Form1

    Private Sub btnadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
        ''''sum the two numbers
        '''' DECLARATIONS:
        Dim first As Integer
        Dim second As Integer
        Dim result As Integer

        ''''INPUT''''
        first = Val(Me.txtfirst.Text)
        second = Val(Me.txtsecond.Text)

        ''''PROCESSING''''
        result = first + second

        ''''OUTPUT''''
        Dim s As String
        s = "The Sum is " + Format(result)
        Me.lstanswers.Items.Add(s)


        


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsubtract.Click
        '''' subtract two numbers
        '''' DECLARATIONS:
        Dim first As Integer
        Dim second As Integer
        Dim result As Integer

        ''''INPUT''''
        first = Val(Me.txtfirst.Text)
        second = Val(Me.txtsecond.Text)

        ''''PROCESSING''''
        result = first - second

        ''''OUTPUT''''
        Dim s As String
        s = "The Difference is " + Format(result)
        Me.lstanswers.Items.Add(s)

    End Sub

    Private Sub btnmultiply_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmultiply.Click
        '''' Multiply the two numbers
        '''' DECLARATIONS:
        Dim first As Integer
        Dim second As Integer
        Dim result As Integer

        ''''INPUT''''
        first = Val(Me.txtfirst.Text)
        second = Val(Me.txtsecond.Text)

        ''''PROCESSING''''
        result = first * second

        ''''OUTPUT''''
        Dim s As String
        s = "The Answer is " + Format(result)
        Me.lstanswers.Items.Add(s)
    End Sub

    Private Sub btndivide_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndivide.Click
        '''' Divide the two numbers
        '''' DECLARATIONS:
        Dim first As Integer
        Dim second As Integer
        Dim result As Integer

        ''''INPUT''''
        first = Val(Me.txtfirst.Text)
        second = Val(Me.txtsecond.Text)

        ''''PROCESSING''''
        result = first / second

        ''''OUTPUT''''
        Dim s As String
        s = "The Quotient is " + Format(result)
        Me.lstanswers.Items.Add(s)
    End Sub
End Class