Imports System
Public Class Test
Public Shared Sub Main()
' 0 : 0+1=1 : 0+1+2=3 : 0+1+2+3=6 : 0+1+2+3+4=10 : 0+1+2+3+4+5=15 ...
Dim arr() As Integer = {0, 1, 2, 3, 4, 5, 6}
Dim sum As Integer = 0
For i As Integer = 0 To arr.Length - 1
sum += arr(i)
Console.Write("{0, 3}", sum)
Next
End Sub
End Class
' Run:
'
' 0 1 3 6 10 15 21