Imports System

'Ejemplo case

'Realizado por Dania Caal

'12/02/21

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Ejemplo case")

        dim opcion as integer

        Console.WriteLine(" 1.Suma 2. Resta 3.Multiplicacion 4. Divisiones Selecione opcion")

        opcion = Console.ReadLine()

        Select (OPCION)

        Case 1

            'serie de comandos o instrucciones

            Dim A, B, Suma as integer

            Console.WriteLine("Ingrese dos numeros:")

            A = Console.ReadLine()

            B = Console.ReadLine()

            Suma = A+B

            Console.WriteLine("La suma es_ " &suma)

        Case 2 

            'Instruciones para una resta

            Dim A, B, Resta as integer

            Console.WriteLine("Ingrese dos numeros: ")

            A = Console.ReadLine()

            B = Console.ReadLine()

            Resta = A-B 

            Console.WriteLine("La resta es_" &resta)

        Case 3

            'Instruciones para una multiplicacion

            Dim A, B, Multiplicacion as integer

            Console.WriteLine("Ingrese dos numeros: ")

            A = Console.ReadLine()

            B = Console.ReadLine()

            Multiplicacion = A*B

            Console.WriteLine("La multiplicacion es_" &multiplicacion)

        Case 4

            'Instruciones para una division 

            Dim A, B, Division as integer

            Console.WriteLine("Ingrese dos numeros: ")

            A = Console.ReadLine()

            B = Console.ReadLine()

            Division = A/B

            Console.WriteLine("La division es_" &division)

        Case else 

            Console.WriteLine("La opcion ingresada no es valida")

            'comando para borrar pantalla

            Console.Clear()

            'comando para reiniciar programa

            main()

        End select 

    End Sub

End Module