Somando todos os valores dos elementos de um array de inteiros

'Este exemplo mostra como somar todos os valores
'dos elementos de um array de inteiros

Module Module1
  Sub Main()
    Dim array As Integer() = New Integer() _
      {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
    Dim total As Integer = 0

    'soma os valores dos elementos do array                
    For i As Integer = 0 To array.GetUpperBound(0)
      total += array(i)
    Next

    Console.WriteLine("Soma dos valores: " & total)

    Console.ReadKey()
  End Sub
End Module