Imports System
'APLICACION DE PIES Y PULGADAS
'REALIZADO POR: Gladys Juárez
Public Module Module1
Public Sub Main()
DIM CENTIMETROS AS INTEGER
DIM IN1 AS DOUBLE
DIM FT AS DOUBLE
'ENTRADAS
'SOLICITAR LA CANTIDAD EN CENTIMETROS
Console.WriteLine("INGRESE CANTIDA EN CENTIMETROS ")
CENTIMETROS = CONSOLE.ReadLine()
'PROCESOS
IN1 = CENTIMETROS * 2.54
FT = CENTIMETROS * 0.33
'SALIDAS
CONSOLE.WriteLine("LA CANTIDAD EN IN1: " &IN1)
CONSOLE.WriteLine("LA CANTIDAD EN FT: " &FT)
End Sub
End Module