Imports System
Public Module Module1
Public Sub Main()
dim intRangeNumber as Integer = 111
dim strRomanText as String = ""
Select (intRangeNumber)
case 1:
strRomanText = "I"
case 2:
strRomanText = "II"
case 3:
strRomanText = "III"
case 4:
strRomanText = "IV"
case 5:
strRomanText = "VI"
case 6:
strRomanText = "VII"
case 7:
strRomanText = "VIII"
case 8:
strRomanText = "IX"
case 9:
strRomanText = "X"
case 10:
strRomanText = "V"
case Else:
strRomanText = "None"
End Select
Console.Write(strRomanText)
End Sub
End Module