Imports System

'EJEMPLO CASE

'HECHO POR SOFIA RUANO

Public Module Module1

    Public Sub Main()

        CONSOLE.WriteLine("EJEMPLO CASE")

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

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

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

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

        DIM RESPUESTAS AS INTEGER

        RESPUESTAS = CONSOLE.ReadLine()

        SELECT RESPUESTAS

        CASE 1

            CONSOLE.WriteLine("PROGRAMA QUE REALIZA CONVERSIONES")

        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