Codigos visual

Solo disponible en BuenasTareas
  • Páginas : 4 (761 palabras )
  • Descarga(s) : 0
  • Publicado : 21 de septiembre de 2010
Leer documento completo
Vista previa del texto
CodugoiRomanos y Letras
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"...
tracking img