Codigos visual
Dim U, D, C, M As Double
Dim tm, tc, td, tu As String
Dim n As Integer = Val(txtn.Text)
U = (n Mod 10) \ 1
D = (n Mod 100) \ 10C = (n Mod 1000) \ 100
M = (n Mod 10000) \ 1000
If rbnroma.Checked = True Then
txtr.Clear()
Select Case M
Case 1txtr.Text = "M"
Case 2
txtr.Text = "MM"
Case 3
txtr.Text = "MMM"
End Select
Select Case CCase 1
txtr.Text = txtr.Text + "C"
Case 2
txtr.Text = txtr.Text + "CC"
Case 3
txtr.Text =txtr.Text + "CCC"
Case 4
txtr.Text = txtr.Text + "CD"
Case 5
txtr.Text = txtr.Text + "D"
Case 6txtr.Text = txtr.Text + "DC"
Case 7
txtr.Text = txtr.Text + "DCC"
Case 8
txtr.Text = txtr.Text + "DCCC"Case 9
txtr.Text = txtr.Text + "CM"
End Select
Select Case D
Case 1
txtr.Text = txtr.Text + "X"Case 2
txtr.Text = txtr.Text + "XX"
Case 3
txtr.Text = txtr.Text + "XXX"
Case 4
txtr.Text= txtr.Text + "XL"
Case 5
txtr.Text = txtr.Text + "L"
Case 6
txtr.Text = txtr.Text + "LX"
Case 7txtr.Text = txtr.Text + "LXX"
Case 8
txtr.Text = txtr.Text + "LXXX"
Case 9
txtr.Text = txtr.Text + "XC"...
Regístrate para leer el documento completo.