Como converter de decimal para números romanos em VB.NET - Exercícios Resolvidos de VB.NET

Informe um número decimal: 2023
O número romano correspondente é: MMXXIII 

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

' Algoritmo VB.NET para converter um número decimal em um
' número romano

Module Program
  Sub Main(args As String())
    ' vamos criar um array com os valores decimais possíveis de
    ' cada número romano
    Dim valoresNumerosRomanos() As Integer = {1000, 900, 500, 400,
      100, 90, 50, 40, 10, 9, 5, 4, 1}

    ' representação dos números romanos
    Dim numerosRomanos() As String = {"M", "CM", "D", "CD",
      "C", "XC", "L", "XL", "X", "IX", "V", "IV", "I"}

    ' vamos pedir para o usuário informar um número decimal
    Console.Write("Informe um número decimal: ")
    Dim numero As Integer = Integer.Parse(Console.ReadLine())

    ' para guardar o resultado
    Dim resultado As String = ""

    ' o número é maior que zero?
    If numero > 0 Then
      ' percorremos o array de valores decimais dos números romanos
      For i As Integer = 0 To valoresNumerosRomanos.Length - 1 Step 1
        ' enquanto o número informado for maior que o valor do
        ' do número romano atual
        While numero >= valoresNumerosRomanos(i)
          ' reduz o número informado
          numero = numero - valoresNumerosRomanos(i)
          ' concatena o número romano e continua o cálculo
          resultado = resultado & numerosRomanos(i)
        End While
      Next
    End If

    ' mostramos o resultado
    If resultado = "" Then
      Console.WriteLine("O número informado não possui número romano")
    Else
      Console.WriteLine("O número romano correspondente é: " & resultado)
    End If

    Console.WriteLine(vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub
End Module