Imports System

Public Module Module1

    Public Sub Main()

        Dim i As Integer = 10

        Dim j As Integer = 20

        Dim arrName(i, j) As String

​

        For i = 0 To arrName.GetLength(0)-1

            For j = 0 To arrName.GetLength(1)-1

              arrname(i, j) = (i*j).tostring()

            Next

            Console.WriteLine(arrname(i, j-1))

        Next

​

        Console.WriteLine("-----------------")

        i = 5

        j = 6

        redim arrName(i, j)

​

        For i = 0 To arrName.GetLength(0)-1

            For j = 0 To arrName.GetLength(1)-1

              arrname(i, j) = (i*j).tostring()

            Next

            Console.WriteLine(arrname(i, j-1))

        Next

​

    End Sub

End Module