Imports System

Public Module Module1

     q3()

    public sub main()

end sub

​

    Public Sub q1()

        dim n1 as integer

        n1 = Console.readline()

        if(n1 = 10) then

            console.WriteLine("n1 equals 10")

        elseif(n1 > 10) then

            console.WriteLine("n1 greater than 10")

        else

            console.writeline("n1 less than 10")

        end if

    End Sub

​

public sub q2()

dim n1 as integer

n1=console.ReadLine()

        console.WriteLine("n1")

    end sub

​

    public sub q3()

        Dim n1 as integer

        Console.ReadLine()

        n1 = console.ReadLine()

        if n1 mod 2 = 0 then

            Console.WriteLine("Even")

        else

            Console.WriteLine("Odd")

        end if

    End Sub

    public sub q4()

        Dim n1 as decimal

        Dim n2 as decimal

        Console.ReadLine()

        n1 = Console.ReadLine()

        Console.ReadLine()

        n2 = Console.ReadLine()

        Dim sMessage as string

        If n1 > n2 then

            sMessage = "First number largest"

        else if n1 = n2 then

            sMessage = "Both numbers equal"

        else

            sMessage = "Second number equal"

        end if

            public sub q5()

                Dim n1 as decimal

        Dim n2 as decimal

        Console.WriteLine("Enter a number")

        n1 = Console.ReadLine()

        Console.WriteLine("Enter another number")

        n2 = Console.ReadLine()

        Dim sMessage as string

        If n1 >= 0 and n2 >= 0 then

            sMessage = "Both numbers positive"

        elseif n1 >= 0 AND n2 < 0 then

            sMessage = "First number positive, second number negative"

        else

            sMessage = "Both numbers negative"

        end if

​

end module