numeros romanos en visual

Numeros romanos en visual basic
Dim n As Integer
Dim vn, u, d, c, m, ur, dr, cr, mr As String
vn = TextBox1.Text
n = Len(vn)
If n = 4 Then
m = Mid(vn, 1, 1)
c = Mid(vn, 2, 1)
d = Mid(vn, 3, 1)
u = Mid(vn, 4, 1)
End If
If n = 3 Then
c = Mid(vn, 1, 1)
d = Mid(vn, 2,1)
u = Mid(vn, 3, 1)
End If
If n = 2 Then
d = Mid(vn, 1, 1)
u = Mid(vn, 2, 1)
ElseIf n = 1 Then
u = Mid(vn, 1, 1)
End If
Select Case u
Case "1"
ur = "I"
Case "2"
ur = "II"
Case "3"
ur = "III"
Case "4"ur = "IV"
Case "5"
ur = "V"
Case "6"
ur = "VI"
Case "7"
ur = "VII"
Case "8"
ur = "VIII"
Case "9"
ur = "IX"
End Select
Select Case d
Case "1"
dr = "X"
Case "2"dr = "XX"
Case "3"
dr = "XXX"
Case "4"
dr = "XL"
Case "5"
dr = "L"
Case "6"
dr = "LX"
Case "7"
dr = "LXX"
Case "8"
dr = "LXXX"
Case "9"
dr = "XC"
End Select
SelectCase c
Case "1"
cr = "C"
Case "2"
cr = "CC"
Case "3"
cr = "CC"
Case "4"
cr = "CD"
Case "5"
cr = "D"
Case "6"
cr = "DC"
Case "7"
cr = "DCC"
Case "8"
cr = "DCCC"Case "9"
cr = "CM"
End Select
Select Case m
Case "1"
mr = "M"
End Select
TextBox2.Text = mr + cr + dr + ur

Aunque hoy los numerales romanos se escriben con letras del alfabeto romano, originalmente eran símbolos independientes. Losetruscos, por ejemplo, usaron I, Λ, X, ⋔, 8 y ⊕ pararepresentar I, V, X, L, C, y M, de los cuales sólo la I y la X eran letras de su alfabeto. Según cierta etimología popular, la V representaba una mano y la X se hizo poniendo una V al derecho encima de otra Vinvertida. No obstante, tal parece que los numerales etruscorromanos vienen realmente de muescas, marcas o rayas que se tallaban en varas, palos y huesos para llevar conteos (como el hueso de Ishango), usados porpastores tanto dálmatas como italianos hasta el siglo XIX1
Así, el numeral 'I' no desciende de la letra 'I' sino de una muesca tallada en la vara. Cada quinta muesca era una doble muesca (v.g. ⋀, ⋁, ⋋, ⋌, etc.), y cada décima muesca era un tache (X), IIIIΛIIIIXIIIIΛIIIIXII..., muy al estilo de las marcas de conteo europeas hasta hoy. Esto dio origen a un sistema posicional: ocho sobre una vara decuentas eran ocho unidades, IIIIΛIII, o la octava de una serie mayor de conteos; como fuera, se podía abreviar ΛIII (o VIII), ya que la existencia de Λ implica cuatro muescas anteriores. Por extensión, el dieciocho era la octava muesca después de las primeras diez, lo que se podía abreviar con X, y así era XΛIII. Igualmente, el número cuatro en la vara era la marca de I que podía sentirse justoantes del corte de la Λ (V), así que podía escribirse IIII o IΛ (IV). Así el sistema en su concepción no era ni aditivo ni sustractivo sino ordinal. Cuando las cuentas se transfirieron a la escritura, las marcas se identificaron fácilmente con las letras romanas existentes I, V y X.
La décima V o X sobre la vara recibía un trazo extra. Así el 50 se escribía de modos distintos: N, И, K, Ψ, ⋔,...