Imports System

Public Module Module1

    Public Sub Main()

        Dim Numbers(8,5) As Integer 

        Dim n As Integer = 1

        For R =  0 to 7

            For C = 0 to 4

                Numbers(R, C) = n

            Next C 

            n = n + 1 

        Next R

        For R = 0 to 7

            For C = 0 to 4

                Console.Write(Numbers(R, C) & "".PadLeft(5))

            Next C

        Console.WriteLine()

        Next R

    End Sub

End Module