Imports System
Public Module Module1
Public Sub Main()
Dim Number As Integer
Dim Roman As String
console.WriteLine("Please Input Number from 1-10")
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
console.WriteLine("Read the Instructions IDIOT, between 1-10")
End Select
console.WriteLine("Roman = " & Roman)
End Sub
End Module
