TOP

Visual Basic Consola - Selección 08




08.  Ingresar un número entero de dos cifras y mostrar su valor en letras.


Imports System.Console
Module Module8
    Dim num, dec, uni As Integer
    Dim decena, unidad As String
    Sub Main()
        Write("Ingrese número de 2 Cifras :")
        num = ReadLine()
        If num > 0 And num < 100 Then
            If num > 10 And num < 16 Then
                Select Case num
                    Case 11 : WriteLine("Once")
                    Case 12 : WriteLine("Doce")
                    Case 13 : WriteLine("Trece")
                    Case 14 : WriteLine("Catorce")
                    Case 15 : WriteLine("Quince")
                End Select
            Else
                dec = num \ 10
                uni = num - (dec * 10)
                Select Case dec
                    Case 1 : decena = "Diez"
                    Case 2 : decena = "Veinte"
                    Case 3 : decena = "Treinta"
                    Case 4 : decena = "Cuarenta"
                    Case 5 : decena = "Cincuenta"
                    Case 6 : decena = "Sesenta"
                    Case 7 : decena = "Setenta"
                    Case 8 : decena = "Ochenta"
                    Case 9 : decena = "Noventa"
                End Select
                If uni <> 0 Then
                    Select Case uni
                        Case 1 : unidad = "uno"
                        Case 2 : unidad = "dos"
                        Case 3 : unidad = "tres"
                        Case 4 : unidad = "cuatro"
                        Case 5 : unidad = "cinco"
                        Case 6 : unidad = "seis"
                        Case 7 : unidad = "siete"
                        Case 8 : unidad = "ocho"
                        Case 9 : unidad = "nueve"
                    End Select
                    If dec = 1 Then
                        decena = "Dieci"
                    End If
                    If dec = 2 Then
                        decena = "Venti"
                    End If
                    If dec > 2 And dec < 10 Then
                        WriteLine(decena & " y " & unidad)
                    Else
                        WriteLine(decena & unidad)
                    End If
                Else
                    WriteLine(decena)
                End If
            End If
        Else
            WriteLine("Número Incorrecto!!!...")
        End If
        ReadLine()
    End Sub
End Module


share_facebook

DAME UN ME GUSTA - SI VALORAS ESTE CÓDIGO



0 comentarios:

Publicar un comentario

Danos tu opinión o déjanos tu ejercicio! - Algoritmos, pseudocódigo y lo pasamos a Visual Basic consola.