Imports System

'ejemplo case 

' REALIZADO POR MELANI 

Public Module Module1

    Public Sub Main()

        CONSOLE.WriteLine(" EJEMPLO CASE ")

        CONSOLE.WriteLine(" OPCION 1. MENSAJE DE BIENVENIDA")

        CONSOLE.WriteLine(" OPCION 2. CONVIERTE DE KM A MILLAS")

        CONSOLE.WriteLine(" OPCION 3. COVIERTE DE LB A KG")

        CONSOLE.WriteLine(" OPCION 4. CUALQUIER OTRA OPCION SALE DEL PROGRAMA")

        DIM RESPUESTA AS INTEGER 

        RESPUESTA = CONSOLE.ReadLine()

        SELECT RESPUESTA

        CASE 1 

            CONSOLE.WriteLine( " PROGRAMA QUE REALIZA  COVERCIONES")

        CASE 2 

            CONSOLE.WriteLine(" INGRESE KM A CONVERTIR ")

            DIM KM, MILLAS AS DOUBLE 

            KM = CONSOLE.ReadLine()

            MILLAS= KM/ 1.62 

            CONSOLE.WriteLine("SON: " &MILLAS &" MILLAS")

        end select

​

    End Sub

End Module