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 max as decimal = 0

max = aNs(0)

for each item in aNs

    if item > max

        max = item

    End if

    Next

        Console.WriteLine(max)

    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