=== Computerprogram ===
Nedenstående computerprogram, der er skrevet i [[Visual Basic]], omregner decimale heltal i intervallet 1-3999 til romertal.
 Public Function Dec2Rom(T as Integer) as String  
   Dim Rom as String
   If T > 3999 Or T < 1 Then
     Dec2Rom = "Heltallet ligger uden for intervallet"
   Else
     Rom = Choose(T \ 1000 + 1, "", "M", "MM", "MMM")
     
     T = T Mod 1000
     Rom = Rom + Choose(T \ 100 + 1, "", "C", "CC", "CCC", "CD", "D", "DC", "DCC", "DCCC", "CM")
    
     T = T Mod 100 
     Rom = Rom + Choose(T \ 10 + 1, "", "X", "XX", "XXX", "XL", "L", "LX", "LXX", "LXXX", "XC")
     
     T = T Mod 10
     Rom = Rom + Choose(T + 1, "", "I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX")
    
     Dec2Rom = Rom
   End If
 End Function
Kommunikation Matematik