Imports System

Public Module Module1

    Public Sub Main()

        DIm number1,number2,answer as decimal

        Dim operation as char

        COnsole.writeline ("Enter the numbers")

        number1=console.readline()

        number2=console.ReadLine()

        console.WriteLine("Select Operation(M,S,A,D)")

        operation=console.ReadLine()

        Select case operation

        Case ="M"

            answer=number1*number2

            console.WriteLine(answer)

        Case ="S"

            answer=number1-number2

            console.WriteLine(answer)

        Case ="A"

            answer=number1+number2

            console.WriteLine(answer)

        Case ="D"

            answer=number1/number2

            console.WriteLine(answer)

        end select

    End Sub

End Module