Imports System

Public Module Module1

    Public Sub Main()

        dim number1 as integer

        dim number2 as integer 

        dim op as char

        dim answer as integer

        console.writeline(" input number 1")

        number1 = console.readline

        console.writeline(" input number 2")

        number2 = console.readline

        DO

            console.WriteLine("Enter (a)dd (s)ubtract ")

            op = console.readline()

        loop until op = "a" or op = "s" 

        select case op

        case = "a"

            answer = number1 + number2 

            console.WriteLine("Answer is equal to " & answer)

        case = "s" 

            answer = number1 - number2 

            console.WriteLine("Answer is equal to " & answer)

        end select 

​

    End Sub

End Module