Convertir a números ordinales entre 1 y 999 Codigo en Visual Basic - VB

Problema
Determinar un algoritmo que permita convertir un número arábigo  comprendido entre  1 y 999 a números ordinales

Solución

• Entrada: 697

• Salida:  sexcentesimo nonagesimo septimo

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim N, u, d, c As Integer
        Dim Unidad() As String = {"", "primero", "segundo", "tercero",
        "cuarto", "quinto", "sexto", "septimo", "octavo", "noveno"}
        Dim Decena() As String = {"", "decimo", "vigesimo", "trigesimo",
       "cuadragesimo","quincuagesimo", "sexagesimo", "septuagesimo",
       "octogesimo", "nonagesimo"}
        Dim Centena() As String = {"", "centesimo", "ducentesimo",
        "tricentesimo"," cuadringentesimo", " quingentesimo", 
        " sexcentesimo", " septingentesimo",
        " octingentesimo", " noningentesimo"}
        N = TextBox1.Text
        u = N Mod 10
        d = Math.Floor(N / 10) Mod 10
        c = Math.Floor(N / 100)
        If (N >= 100) Then
        TextBox2.Text = Centena(c) + " " + Decena(d) + " " + Unidad(u)
        Else
            If (N >= 10) Then
                TextBox2.Text = Decena(d) + " " + Unidad(u)
            Else
                TextBox2.Text = Unidad(N)
            End If
        End If
    End Sub
End Class

 Descargar Proyecto Visual Basic