Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Convertitore romano - Form1.vb

Form1.vb

 Caricato da: R0gerblack
Scarica il programma completo

  1. Public Class Form1
  2.     Dim X As String
  3.     Dim I As String
  4.     Dim II As String
  5.     Dim III As String
  6.     Dim IV As String
  7.     Dim V As String
  8.     Dim L As String
  9.     Dim C As String
  10.     Dim D As String
  11.     Dim M As String
  12.     Dim NUMERO_ROMANO As String
  13.     Dim NUMERO_ARABO As Long
  14.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  15.         NUMERO_ARABO = TextBox1.Text
  16.         While NUMERO_ARABO >= 1000
  17.             NUMERO_ROMANO += "M"
  18.             NUMERO_ARABO -= 1000
  19.         End While
  20.         While NUMERO_ARABO >= 500
  21.             NUMERO_ROMANO += "D"
  22.             NUMERO_ARABO -= 500
  23.         End While
  24.         While NUMERO_ARABO >= 100
  25.             NUMERO_ROMANO += "C"
  26.             NUMERO_ARABO -= 100
  27.         End While
  28.         While NUMERO_ARABO = 90
  29.             NUMERO_ROMANO += "XC"
  30.             NUMERO_ARABO -= 90
  31.         End While
  32.         While NUMERO_ARABO >= 50
  33.             NUMERO_ROMANO += "L"
  34.             NUMERO_ARABO -= 50
  35.         End While
  36.         While NUMERO_ARABO = 40
  37.             NUMERO_ROMANO += "XL"
  38.             NUMERO_ARABO -= 40
  39.         End While
  40.         While NUMERO_ARABO >= 10
  41.             NUMERO_ROMANO += "X"
  42.             NUMERO_ARABO -= 10
  43.         End While
  44.         While NUMERO_ARABO = 9
  45.             NUMERO_ROMANO += "IX"
  46.             NUMERO_ARABO -= 9
  47.         End While
  48.         While NUMERO_ARABO >= 5
  49.             NUMERO_ROMANO += "V"
  50.             NUMERO_ARABO -= 5
  51.         End While
  52.         While NUMERO_ARABO = 4
  53.             NUMERO_ROMANO += "IV"
  54.             NUMERO_ARABO -= 4
  55.         End While
  56.         While NUMERO_ARABO >= 1
  57.             NUMERO_ROMANO += "I"
  58.             NUMERO_ARABO -= 1
  59.         End While
  60.         MsgBox(NUMERO_ROMANO)
  61.         NUMERO_ROMANO = ""
  62.     End Sub
  63. End Class