• Lenguaje

    Visual Basic .Net

  • Descripción

    Permite convertir a mm, cm, dm, hm, km, un valor expresado en metros.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Module MetrosAMmCmDmHmYKm

    Sub Main()
        Dim centimetros, decimetros, hectometros, kilometros, metros As Double
        Dim milimetros As Double
        Console.Write("Ingresa el valor de metros: ")
        metros = Double.Parse(Console.ReadLine())
        milimetros=metros*1000
        centimetros=metros*100
        decimetros=metros*10
        hectometros=metros/100
        kilometros=metros/1000
        Console.WriteLine("Valor de centimetros: " & centimetros)
        Console.WriteLine("Valor de decimetros: " & decimetros)
        Console.WriteLine("Valor de hectometros: " & hectometros)
        Console.WriteLine("Valor de kilometros: " & kilometros)
        Console.WriteLine("Valor de milimetros: " & milimetros)
        Console.WriteLine()
        Shell ("cmd /c pause", AppWinStyle.NormalFocus, True)
    End Sub

End Module