Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        Dim Numbers(7, 4) As Integer

        For R = 0 To 7

            For C = 0 To 4

                Numbers(R, C) = C + 1

            Next C

​

        Next R

​

        For C = 0 To 4

            For R = 0 To 7

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

            Next R

            Console.WriteLine()

        Next C

​

    End Sub

End Module