Dim Students(3, 30) As String

        Students(0, 0) = "相原"

        Students(0, 1) = "赤井"

        Students(0, 2) = "井口"

        Students(0, 3) = "0,3"

        Students(0, 30) = "0,30"

        Students(1, 0) = "1,0"

        Students(1, 30) = "1,30"

        Students(2, 0) = "2,0"

        Students(3, 30) = "渡良瀬"

        Dim student(Students.Length - 1) As String

        For i As Integer = 0 To Students.GetLength(0) - 1

            For j As Integer = 0 To Students.GetLength(1) - 1

                student(i * Students.GetLength(1) + j) = Students(i, j)

            Next

        Next