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()
CONSOLE.WriteLine("PROGRAMA QUE REALIZA CONVERSIONES")
CONSOLE.WriteLine("INGRESE KM A CONVERTIR")
CONSOLE.WriteLine("SON: "&MILLAS &" MILLAS")