Imports System

'REALIZADO POR: JOSE ORTIZ

'EJEMPLO IF ANIDADO

'INDICA SI UN NUMEOR ES POSITIVO, MEGATIVO O CERO               

Public Module Module1

    Public Sub Main()

        DIM NUMERO AS INTEGER 

        CONSOLE.WriteLine("EJEMPLO IF ANINADO")

        CONSOLE.WriteLine("INGRESE UN NUMERO")

        NUMERO = CONSOLE.ReadLine()

        IF NUMERO > 0 THEN

            CONSOLE.WriteLine("EL NUMERO ES POSITIVO")

        END IF

        IF NUMERO < 0 THEN

            CONSOLE.WriteLine("EL NUMERO ES NEGATIVO")

        END IF

        IF NUMERO = 0 THEN

            CONSOLE.WriteLine("ES CERO")

        END IF

    End Sub

End Module