Imports System

​

Public Module Module1

​

    Public Sub Main()

        Console.WriteLine("Input a number (negative or positive)")

        Dim m as integer = Console.ReadLine()

        If m > 0 Then

            Console.WriteLine("The value of n = 1")

        Elseif m = 0 Then

                Console.WriteLine("The value of n = 0")

            Else

                Console.WriteLine("The value of n = -1")

            End If 

          End Sub

End Module

​