Imports System

Public Module Module1

    Public Sub Main()

        'Defining Variables'

        Dim Number As Double

        Dim Number1 As Double

        Dim CalFunction As Integer

        'Asking for the Function'

        Console.WriteLine("For multiplication Press 1, For Division Press 2, For Substraction press 3, For Addiging press 4")

        CalFunction = Console.ReadLine()

        Select Case CalFunction

        Case 1 

            Console.WriteLine("Entre your 2 numbers")

            Number = Console.ReadLine()

            Number1 = Console.ReadLine()

            Console.WriteLine("Number 1 * Number 2= " & Number * Number1)

        Case 2 

            Console.WriteLine("Entre your 1 numbers")

            Number = Console.ReadLine()

            Console.WriteLine("Entre your 2nd numbers")

            Number1 = Console.ReadLine()

                Console.WriteLine("Number 1/Number 2= " & Number / Number1)

                Console.WriteLine("Number 2/Number 1= " & Number1 / Number)

        Case 3

            Console.WriteLine("Entre your 1 numbers")

            Number = Console.ReadLine()

            Console.WriteLine("Entre your 2nd numbers")

            Number1 = Console.ReadLine()

​

                    Console.WriteLine("Number 1-Number 2= " & Number - Number1)

                    Console.WriteLine("Number 2-Number 1= " & Number1 - Number)

        Case 4

            Console.WriteLine("Entre your 1 numbers")

            Number = Console.ReadLine()

            Console.WriteLine("Entre your 2nd numbers")

            Number1 = Console.ReadLine()

            Console.WriteLine("Number 1+Number 2= " & Number1 + Number)

        End Select

    End Sub

End Module