Focus on Microsoft Technologies - Tutorials, Articles, Code Samples.

Monday, September 04, 2006

The average of an array of any numeric type

Function ArrayAvg(ByVal arr As Array) As Double    
Return ArrayAvg(arr, arr.GetLowerBound(0), arr.GetUpperBound(0))
End Function

' This overloaded version allows you to specify which portion of the array should be considered
Function ArrayAvg(ByVal arr As Array, ByVal first As Integer, ByVal last As Integer) As Double
Dim i As Integer
Dim sum As Double
For i = first To last
sum += CType(arr(i), Double)
' return the average
Return sum / ((last + 1) - first)
End Function

Post a Comment