Imports System

​

Public Module Questions

    Dim input as integer

    Dim n1 as integer

    Dim n2 as integer

    Public Sub Main()

        Console.WriteLine("Type in a question number

")

        Question5

    End Sub

    Private Sub Question1()

        Console.WriteLine("Question 1")

        input = Console.ReadLine()

        if(input = 10) then

            Console.WriteLine("input = 10")

        elseif(input < 10) then

            Console.WriteLine("input is smaller than 10")

        elseif(input > 10) then

            Console.WriteLine("input is bigger than 10")

        End if

    End Sub

    Private Sub Question2()

        Console.WriteLine("Question 2")

        input = Console.ReadLine()

        Do

            input = input - 2

        Loop until input = 0 or input < 0

        if(input = 0) then

            Console.WriteLine("even")

        elseif(input < 0) then

            Console.WriteLine("odd")

        end if

    End Sub

    Private Sub Question3()

        Console.WriteLine("Question 3")

        n1 = Console.ReadLine()

        n2 = Console.ReadLine()

        if(n1 < n2) then

            Console.WriteLine("Second number biggest")

        elseif(n1 > n2) then

            Console.WriteLine("First number biggest")

        end if

    End Sub

    Private Sub Question4()

        Console.WriteLine("Question 4")

        n1 = Console.ReadLine()

        n2 = Console.ReadLine()

        if(n1 > 0) AND (n2 > 0) then

            Console.WriteLine("Both numbers > 0")

        elseif(n1 < 0) AND (n2 < 0) then

            Console.WriteLine("Both numbers < 0")

        else if(n1 < 0) AND (n2 < 0)

        end if

    End Sub

    Private Sub Question5()

        Console.WriteLine("Question 5")

        input = Console.ReadLine()

        if(input = 1) then

            Console.WriteLine("one")

        elseif(input = 2) then

            Console.WriteLine("two")

        elseif(input = 3) then

            Console.WriteLine("three")

        elseif(input = 4) then

            Console.WriteLine("four")

        elseif(input = 5) then

            Console.WriteLine("five")

        elseif(input = 6) then

            Console.WriteLine("six")

        elseif(input = 7) then

            Console.WriteLine("seven")

        elseif(input = 8) then

            Console.WriteLine("eight")

        elseif(input = 9) then

            Console.WriteLine("nine")

        elseif(input = 10) then

            Console.WriteLine("ten")

        elseif(input > 10) then

            Console.WriteLine("Greater than 10")

        end if

    End Sub

End Module

​

​