Module Module1
    Class Tester
        Public Sub Run()
            'Declare the multi-dimensional array
            Dim intArray(,) As Integer
            Dim intValue As Integer = 0

            'Declare three counter variables
            'Dim i As Integer = 0
            Dim j As Integer = 0
            Dim k As Integer = 0

            'A string variable to hold a row of numbers converted to strings
            Dim numberRow As String = " "

            'Initialise the mutli-dimensional array with 10 rows and 10 columns
            intArray = New Integer(9, 9) {}

            'Populate the int multi-dimensional array using a nested for loop
            'The first loop is used to loop over the first level (Rows)
            For j = 0 To intArray.GetLength(1) - 1
                'The first loop is used to loop over the second level (Columsns)
                'For each row there are 10 elements (columns)
                For k = 0 To intArray.GetLength(1) - 1
                    ' the intValue variable will count from 1 to a 100
                    ' each of these numbers will be stored in each member 
                    ' of the multi-dimensional array
                    intValue += 1
                    intArray(j, k) = intValue

                    If (intValue < 10) Then
                        ' Convert each number to a string and append it to the
                        ' string variable
                        numberRow += intArray(j, k).ToString + "  "
                    Else
                        numberRow += intArray(j, k).ToString + " "
                    End If
                Next k
                'Print out the row of numbers
                Console.WriteLine(numberRow)
                numberRow = " "
            Next j
        End Sub
    End Class

    Sub Main()
        Dim t As Tester = New Tester()
        t.Run()
        Console.ReadLine()
    End Sub

End Module