Imports System

Public Module Module1

    Public Sub Main()

        Dim N, RN as string 

        Dim M, D, C, L, X, V, I as integer

        M = 1000

        D = 500

        C = 100

        L = 50

        X = 10

        V = 5

        I = 1 

​

        Console.Writeline("input a number")

        N = Console.Readline()

​

        RN = "" 

​

        While N > 0 

            'console.WriteLine("!"&n)

            If (n-m >= 0) 

                n = n-m

                RN = RN+ "M"

            ElseIf(n-d >= 0)

                n = n - d

                RN = RN + "D"

            ElseIf(n-c >= 0)

                'console.WriteLine("100!"&n)

                n = n - c

                RN = RN + "C"

            ElseIf(n-l >= 0)

                n = n - l

                RN = RN + "L"

            ElseIf(n-x >= 0)

                'console.WriteLine("10!"&n)

                n = n - x

                RN = RN + "X"

            ElseIf(n-v >= 0)

                n = n - v

                RN = RN + "V"

            ElseIf(n-i >= 0)

                'console.WriteLine("!!!!!!"&n)

                n = n - i

                RN = RN + "I"

            End If 

        End While 

        Console.Writeline(RN)

    End Sub

End Module