Imports System

'EJEMPLO IF DE MENÚ

'REALIZAD POR Carol Elias 

Public Module Module1

    Public Sub Main()

        DIM OPCION AS INTEGER

        Console.WriteLine("MENÚ: 1. OPCIÓN A, 2. OPCIÓN B, 3. OPCIÓN C, INGRESE UN OPCIÓN:")

        OPCION = CONSOLE.ReadLine()

        IF OPCION = 1 THEN

            CONSOLE.WriteLine("PROCEDIMIENTO DE LA OPCIÓN 1")

        END IF

        IF OPCION = 2 THEN 

            CONSOLE.WriteLine("PROCEDIMIENTO DE LA OPCION 2")

        END IF

        IF OPCION = 3 THEN 

            CONSOLE.WriteLine("PROCEDIMIENTO DE LA OPCION 3")

        END IF

    End Sub

End Module