Imports System

Public Module Module1

    Public Sub Main()

        DIM NUMBER AS INTEGER

        DIM ROMAN AS STRING

        console.WriteLine("enter 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"

        END SELECT

​

        console.writeline(ROMAN)

    End Sub

End Module