Imports System
Public Module Module1
Public Sub Main()
dim number as integer
dim roman as string
console.WriteLine("input number")
number = console.ReadLine()
select case number
case is = 1
roman = "I"
case is = 2
roman = "II"
case is = 3
roman = "III"
case is = 4
roman = "IV"
case is = 5
roman = "v"
case is = 6
roman = "VI"
case is = 7
roman = "VII"
case is = 8
roman = "VIII"
case is = 9
roman = "IX"
case is = 10
roman = "x"
case else
roman = "N/a"
console.WriteLine("Numeral = " & roman)
end select
End Sub
End Module
