для каждого цикла в Visual Basic: IndexOutOfRangeException

Question

Почему следующий код дает IndexOutOfRangeException в VB.Net:

Dim intNum() As Integer = {1, 2, 3, 4, 5} 
    Dim tot As Integer 
    For Each n As Integer In intNum 
     tot = tot + intNum(n) 
    Next 
    MsgBox(tot) 

Answer 1

Предполагая, что вы имеете в виду VB.NET, индексы массива в диапазоне от 0 до верхней границы массива из 4 которого превышает при последнем индексе. Если вы хотите суммировать элементы, вы можете сделать

For Each n As Integer In intNum 
    tot = tot + n 
Next 

Answer 2

Или используйте некоторые встроенные функции.

Dim intNum() As Integer = {1, 2, 3, 4, 5} 
Dim total = intNum.Sum()