' 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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
