配列の要素数を調べます。
構文
配列名.Length
サンプルソース
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim hairetu(3) As Integer
For i = 0 To hairetu.Length – 1
hairetu(i) = +1
MsgBox(i)
Next
MsgBox(hairetu.Length)
End Sub
End Class
実行結果
o
1
2
3
4
Lengthは1つ数が多いので-1引いてください。
引かないとエラーになります。
このようなことになります。
追加情報:インデックスが配列の境界外です。
エラーソース
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim hairetu(3) As Integer
For i = 0 To hairetu.Length
hairetu(i) = +1
MsgBox(i)
Next
MsgBox(hairetu.Length)
End Sub
End Class