Imports System

Public Module Module1

    Public Sub Main()

        dim opc as integer

        Console.WriteLine("Operaciones basicas")

        Console.Writeline(" 1. suma, 2. resta, 3.multiplicacion, 4. division")

        opc=Console.Readline()

        If opc= 1 then

            dim s, a, b as double

            Console.Writeline("Ingrese el primer numero")

            a=Console.ReadLine()

            Console.Writeline("Ingrese el segundo numero")

            b=Console.Readline()

            'Calculo de la suma

            s=a + b

            'Mostrar la suma de a + b

            Console.Writeline("la suma de a y b es: " &a+b)

            'Realizar la suma

            'Calcular la suma de dos numeros

        end if 

         If opc = 2 then

            dim r, a, b as double

            Console.Writeline("Ingrese el primer numero")

            a=Console.Readline()

            Console.Writeline("Ingrese el segundo numero")

            b=Console.ReadLine()

            'Calculo de la resta

            r=a-b

            'Mostrar la resta de a-b

            Console.Writeline("la resta de a y b es: " &a-b)

            'Realizar la resta

            'Calcular la resta de dos numeros

        end if 

        If opc = 3 then

            dim m, a, b as double

            Console.Writeline("Ingrese el primer numero")

            a=Console.Readline()

            Console.Writeline("Ingrse el segundo numero")

            b=Console.Readline()

            'Calculo de la multiplicacion

            m=a*b

            'Mostrar la multiplicacion de a*b

            Console.Writeline("La multiplicacion de a y b es: " &a*b)

            'Realizar la multiplicacion

            'Calcular la multiplicacion de dos numeros

        end if

        If opc = 4 then

            dim d, a, b as double

            Console.Writeline("Ingrese el primer numero")

            a=Console.Readline()

            Console.Writeline("Ingrese el segundo numero")

            b=Console.Readline()

            'Calculo de la multiplicacion

            d=a/b

            'Mostrar la division de a/b

            Console.Writeline("La division de a y b es: " &a/b)

            'Realizar la division

            'Calcular la division de dos  numeros

        end if

    End Sub

End Module