Imports System
Public Module Module1
Public Sub Main()
Dim Number as Integer
Dim RomanNum as String
Console.Writeline("Enter number from 1 to 10")
Number = Console.Readline()
If Number = 1 Then
RomanNum = "I"
ElseIf Number = 2 Then
RomanNum = "II"
ElseIf Number = 3 Then
RomanNum = "III"
ElseIf Number = 4 Then
RomanNum = "IV"
ElseIf Number = 5 Then
RomanNum = "V"
ElseIf Number = 6 Then
RomanNum = "VI"
ElseIf Number = 7 Then
RomanNum = "VII"
ElseIf Number = 8 Then
RomanNum = "VIII"
ElseIf Number = 9 Then
RomanNum = "IX"
ElseIf Number = 10 Then
RomanNum = "X"
End If
Console.Writeline("The number " & Number & " is " & RomanNum & " in Roman Numerals")
End Sub
End Module