' 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

The Future of iOS App Development: Trends to Watch
When it launched in 2008, the Apple App Store only had 500 apps available. By the first quarter of 2022, the store had about 2.18 million iOS-exclusive apps. Average monthly app releases for the platform reached 34,000 in the first half of 2022, indicating rapid growth in iOS app development.