Imports System

Public Module Module1

Sub Main()

​

    'declaring and initializing a 2d array 

    Dim a1(,) As Integer = {{2, 3}, {5, 3}}

​

    For I as Integer = 0 to a1.GetUpperBound(0)

        For J as Integer = 0 to a1.GetUpperBound(1)

        Console.Write("{0} ", a1(j,i))

        Next

        console.WriteLine()

    Next

​

End Sub

End Module