Imports System

Public Module Module1

    Function getaverage(ByVAl arr As Integer(),n As Integer)As Double

        Dim k As Integer

        Dim Av As Double

        Dim sum As Integer=0

        For k=0 To n-1

        sum=sum+arr(k)

    Next

    Av=sum/n

    return Av

End Function

    Public Sub Main()

    Dim bal As Integer()={400,300,200,500,450,350}

    Dim Av As Double

    Av=getaverage(bal,6)

    Console.WriteLine("average is=" &Av)

    End Sub

End Module