Imports System

Public Module Module1

    Public Sub Main()

        DIM num1,posnum, negnum, zeronum,count As Integer

    For Count = 1 to 6

        Console.WriteLine("Enter a number :")

        num1 = Console.ReadLine()

        IF num1>0 THEN

            posnum = posnum + 1

        ELSEIf num1 <0 THEN

            negnum = negnum + 1

        ELSE

            zeronum = zeronum +1

        END If

    Next

    Console.WriteLine("The Total number of positive numbers :" & posnum)

    Console.WriteLine("The Total number of negative numbers :" & negnum)

    Console.WriteLine("The Total number of zero :" & zeronum)

    End Sub

End Module