Imports System

Public Module Module1

    Dim aNs() as decimal = {2,4,6,8,10,3,5,7,9,11}

    Public Sub Main()

        Console.WriteLine("Start")

        Dim nAVG as decimal

        nAVG = FindAverage(aNS)

        COnsole.writeline("Average is: {0} ",nAVG)

        FindMax(aNs)

    End Sub

    Public Function FindMax(tArray() as decimal) as decimal

        Dim nMAx as decimal = 0

        For i as integer = 0 to tArray.GetUpperBound(0)

        if tArray(i) > nMAx then

            'do stuff

            nMax = tArray(i)

            end if

        Next

    console.WriteLine(nMax)

        return nMax

    end function

        Public Function FindAverage(tArray() as decimal) as decimal

            Dim nCount as integer

            'find thelenght of the array assign to nCount

            'create a for loop

            Dim start as integer

            Dim finish as integer

            'assign a value to finish

            Dim total as integer

            For i = start to finish

            'add up items

            'total = ?

        Next

        'find average

        Dim average as decimal

        return average

    End Function

​

​

​

End Module