Dim a(10) As Integer Console.Write(a.Length)
Dim a(10) As Integer For i As Integer = 0 To a.Length - 1 a(i) = hogehoge Next