Imports System

Public Module Module1

    Public Sub Main()

        Dim operand1 as double

        Dim operand2 as double

        Dim operation as char 

        Console.WriteLine("Enter operand 1")

        operand1=Console.ReadLine()

        Console.WriteLine("Enter operand 2")

        operand2=Console.ReadLine()

        Console.WriteLine("Enter operation")

        operation=Console.ReadLine()

        Select Case operation 

        Case "+"

            Console.WriteLine(operand1 & "+" & operand2 & "=" & operand1+operand2)  

        Case "-"

            Console.WriteLine(operand1 & "-" & operand2 & "=" & operand1-operand2)

        Case "*"

            Console.WriteLine(operand1 & "*" & operand2 & "=" & operand1*operand2)

        Case "/"

            Console.WriteLine(operand1 & "/" & operand2 & "=" & operand1/operand2)

        End Select 

    End Sub

End Module