' The sum of an array of any numeric type'' Example:' Dim arr As Integer() = {3, 7, 8, 2, 0, 9}' MessageBox.Show(ArraySum(arr))Function ArraySum(ByVal arr As Array) As Double Return ArraySum(arr, arr.GetLowerBound(0), arr.GetUpperBound(0))End Function' This overloaded version allows you to specify which portion of the array ' should be consideredFunction ArraySum(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 sumEnd Function

