Imports System

Public Module Module1

    Public Sub Main()

        dim opcion as integer

        Console.WriteLine("Selecciona una opción: 1. SUMA, 2. RESTA, 3. MULTIPLICACIÓN, 4. DIVISIÓN")

        opcion = Console.Readline

        dim a, b, c as double 

        if opcion = 1 then 

            Console.WriteLine("Ingrese número")

            b=Console.ReadLine

            Console.Writeline("Ingrese otro número")

            c=Console.Readline

            'Calculo de suma

            a = b+c

            'Mostrar la suma

            Console.Writeline("El resultado de la suma es:" &a)

        End if

        dim br, cr, ar as double 

        if opcion = 2 then

            Console.WriteLine("Ingrese número")

            br=Console.ReadLine()

            Console.Writeline("Ingrese otro número")

            cr=Console.Readline()

        End if 

        'Evaluar el mayor y restarle el menor

        if br > cr then

            ar=br-cr

            Console.WriteLine("La resta es:" &ar)

        End if

        if cr > br then

            ar=cr-br

            Console.WriteLine("El resultado de la resta es:" &ar)

        End if

        dim am, bm, cm as double

        if opcion = 3 then

            Console.WriteLine("Ingrese número mayor a 1")

            bm=Console.ReadLine

            Console.Writeline("Ingrese otro número mayor a 1")

            cm=Console.Readline

            'Calculo de multiplicación

            am = bm*cm

            'Mostrar la multiplicación

            Console.Writeline("El resultado de la multiplicación es:" &am)

        End if

        dim ad, bd, cd as double 

        if opcion = 4 then

            Console.WriteLine("Ingrese número")

            bd=Console.ReadLine()

            Console.Writeline("Ingrese otro número")

            cd=Console.Readline()

        End if 

        'Evaluar el mayor y restarle el menor

        if bd > cd then

            ad=bd/cd

            Console.WriteLine("El resultado de la división es:" &ad)

        End if

        if cd > bd then

            ad=cd/bd

            Console.WriteLine("El resultado de la división es:" &ad)

        End if

        if opcion > 4 then

            Console.Writeline("Error, las opciones son del 1 al 4")

        end if

    End Sub

End Module