Imports System

Public Module ifstatements

    Public Sub if1()

        dim input as integer

        input = Console.ReadLine()

        if input > 10 then

            console.writeline("larger than 10")

        elseif input < 10 then

            console.writeline("smaller than 10")

        elseif input = 10 then

            console.WriteLine("input = 10")

        end if

    End Sub

​

    public sub if2()

        dim input as integer

        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 > 5 or input < 0 then

            console.writeline("invalid input")

        end if

    end sub

​

    public sub if3()

        dim input as integer

        input = console.readline()

        if input mod 2 = 0 then

            console.writeline("even")

        else if input mod 2 = 1 then

            console.writeline("odd")

        end if

    end sub

​

    public sub if4()

        dim num1 as integer

        num1 = console.ReadLine()

        dim num2 as integer

        num2 = console.readline()

        if num1 > num2 then

            console.writeline("first number biggest")

        elseif num2 > num1 then

            console.writeline("second number biggest")

        end if

    end sub

​

    public sub if5()

        dim num1 as integer

        num1 = console.ReadLine()

        dim num2 as integer

        num2 = console.readline()

        if num1 and num2 >= 0 then

            console.WriteLine("both numbers >= 0")

        elseif num1 and num2 <= 0 then

            console.writeline("both numbers <= 0")

        elseif num1 or num2 = 0 then

            console.writeline("one number greater than 0")

        end if

​

        if num1 or num2 > 10 then

            console.writeline("at least one number > 10")

        end if

    end sub

​

    public sub if6()

        dim input as integer

        input = console.readline()

        if input mod 2 and input mod 3 and input mod 5 and input mod 7 <> 0 then

            console.writeline("prime")

        else

            console.writeline("composite")

        end if

    end sub

End Module

​

public module activitycase

​

    public sub activitycase1()

        dim input as integer

        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")

        else

            console.writeline(" not in list ")

        end if

    end sub

​

    public sub activitycase2()

        dim input as integer

        input = console.readline()

        select input

            case 1

                console.writeline("one")

            case 2

                console.writeline("two")

            case 3

                console.writeline("three")

            case 4

                console.writeline("four")

            case 5

                console.writeline("five")

            case else

                console.writeline("not in list")

        end select

    end sub

End Module

​