RosettaCodeData/Task/Create-a-two-dimensional-array-at-runtime/Visual-Basic-.NET/create-a-two-dimensional-array-at-runtime.visual

Module Program
    Sub Main()
        Console.WriteLine("Enter two space-delimited integers:")
        Dim input = Console.ReadLine().Split()
        Dim rows = Integer.Parse(input(0))
        Dim cols = Integer.Parse(input(1))

        ' VB uses max-index for array creation.
        Dim arr(rows - 1, cols - 1) As Integer

        arr(0, 0) = 2
        Console.WriteLine(arr(0, 0))
    End Sub
End Module