.net - Visual Basic の For Each ループ: IndexOutOfRangeException

Question

次のコードで VB.Net で IndexOutOfRangeException が発生するのはなぜですか。

    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()