Imports System

​

Public Module Module1

​

    Public Sub Main()

        bigsmall()

    End Sub

​

    Public Sub oddeven()

        dim array(19)

        array(0) = Console.readLine()

        for count as integer = 1 to 19

            if count mod 2 = 1

                array(count) = array(0) + 10

            end if

​

            if count mod 2 = 0

                array(count) = array(0) - 10

            end if

        next

    End Sub

​

    public sub bigsmall()

        dim array(9) as decimal

        dim small1 as decimal

        dim small2 as decimal

        dim big1 as decimal

        dim big2 as decimal

​

        for count as integer = 0 to 9

            array(count) = console.ReadLine()

        next

        big1 = array(0)

        big2 = array(1)

        small1 = array(0)

        small2 = array(1)

        for count as integer = 0 to 9

            if array(count) > big1

                big1 = array(count)

            else if array(count) <> big1 and array(count) > big2

                big2 = array(count)

            else if array(count) < small1

                small2 = small1

                small1 = array(count)

            else if array(count) > small1 and array(count) < small2

                small2 = array(count)

            end if

        next

​

        console.WriteLine("biggest={0}", big1)

        console.WriteLine("second biggest={0}", big2)

        console.WriteLine("smallest={0}", small1)

        console.WriteLine("second smallest={0}", small2)

    end sub

​

    public sub countmaori

        dim array() as string = {"Tahi", "Rua", "Toru", "Wha", "Rimu", "Onu", "Whitu", "Waru", "Iwa", "Tekau"}

        for count as integer = 0 to 9

            console.write("{0}, ", count + 1)

            console.WriteLine(array(count))

        next

    end sub

End Module

​