ArrayAvg – The average of an array of any numeric type

ArrayAvg – The average of an array of any numeric type

' The average of an array of any numeric type'' Example:'   Dim arr As Integer() = {3, 7, 8, 2, 0, 9}'   MessageBox.Show(ArrayAvg(arr))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 consideredFunction 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)    Next    ' return the average    Return sum / ((last + 1) - first)End Function

See also  How to Create and Deploy QR Codes Online: A Comprehensive Guide

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist