Hola
Hace unos cuantos post creo que realizaste la misma pregunta, a la cual yo respondí. Igual mi respuesta no te funciono o no era lo que necesitabas, pero si yo me tomé la molestia y el tiempo para intentar buscar una solución a TU problema, hubiese agradecido un comentario acerca de la misma.
Cita: 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--