vb.net

[janka1]

hola a todos tengo un problema que resolver espero que me ayuden a mi y a otros que lo necesiten.

tengo que ingresar un numero cualkiera del 1 al 100 y me tiene que devolver en numeros romanos.




Gracias de antemanos

[Insomnia]

Hola

En VB 6 puedes hacer algo como esto:

Código:

Private Sub Command1_Click()
Dim rest As Integer
Dim Rom As String
Dim num As Integer

num = Text1.Text \ 10
Select Case num
    Case 10
        Rom = "C"
    Case 9
        Rom = "XC"
    Case 8
        Rom = "LXXX"
    Case 7
        Rom = "LXX"
    Case 6
        Rom = "LX"
    Case 5
        Rom = "L"
    Case 4
        Rom = "XL"
    Case 3
        Rom = "XXX"
    Case 2
        Rom = "XX"
    Case 1
        Rom = "X"
End Select
    

rest = Text1.Text Mod 10
Select Case rest
    Case 9
        Rom = Rom & "IX"
    Case 8
        Rom = Rom & "VIII"
    Case 7
        Rom = Rom & "VII"
    Case 6
        Rom = Rom & "VI"
    Case 5
        Rom = Rom & "V"
    Case 4
        Rom = Rom & "IV"
    Case 3
        Rom = Rom & "III"
    Case 2
        Rom = Rom & "II"
    Case 1
        Rom = Rom & "I"
End Select

MsgBox Rom

        
End Sub

Creo que tiene que ser sencillo adaptarlo a .NET y puede que alguien pueda reducir mas el código.

--Saludos--