' 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


The Best Mechanical Keyboards For Programmers: Where To Find Them
When it comes to programming, a good mechanical keyboard can make all the difference. Naturally, you would want one of the best mechanical keyboards for programmers. But with so many