Untitled

Module Module1

    Sub Main()
        Dim nums(4, 2) As Integer
        Dim cols, rows As Integer
        For rows = 0 To 4
            For cols = 0 To 2
                nums(rows, cols) = 3
            Next
        Next

        Dim rowCounter, columnCounter As Integer
        For rowCounter = 0 To 4
            For columnCounter = 0 To 2
                Console.Write(nums(rowCounter, columnCounter) & "  ")
            Next
            Console.WriteLine()
            Console.WriteLine()
        Next
        Console.WriteLine()


    End Sub

End Module