VB.NET インデックスが配列の境界外です。のエラーが消えない。

Question

配列の中の数時で50未満のものだけを表示させたいのですが、
If points(i) < 50 Thenの所で「インデックスが配列の境界外です。」エラーがでます。
改善方法を教えてください。

Sub Main()
Dim points() As Integer = {50, 49, 62, 59, 35, 90, 48, 51, 60, 61}
Dim a As Integer = 0

    For i As Integer = 0 To points.Length + 1

        If points(i) < 50 Then
            a = points(i)
            Console.WriteLine(CStr(a))
        End If
    Next i
    Console.ReadLine()
End Sub

Answer 1

Lengthは配列の要素数を返します。
つまりこの場合、10が返ります。
対して配列の添え字に指定できるのは0～9です。
10+1（つまり11）を指定してはエラーが出るのは当然です。
よってLength-1にするのが正しいです。

For i As Integer = 0 To points.Length - 1

余談ですが、For Each を使うと配列の要素数分ループしてくれます。
こちらの書き方も覚えておくとよいでしょう。

For Each point As Integer In points
    If point < 50 Then
        Console.WriteLine(point)
    End If
Next

Comments

[fffu8]

ご丁寧にありがとうございます。