Module Tester Sub Main() Dim array As Integer() = New Integer() _ {1, 2, 3, 4, 5, 6, 7, 8, 9, 10} Dim total As Integer = 0, i As Integer = 0 For i = 0 To array.GetUpperBound(0) total += array(i) Next Console.WriteLine("Total of array elements: " & total) End Sub End Module
Total of array elements: 55