' Visual Basic 2008 9.0 .NET Examples - Multidimensional Arrays - Arrays : 
Module Exercise2Solution
    Sub Main()
        Console.WriteLine("Row Count ?")
        Dim rowCount As Integer = Console.ReadLine()
        Console.WriteLine("Column Count ?")
        Dim columnCount As Integer = Console.ReadLine()
        '
        Dim upperboundFirstDimension As Integer = rowCount - 1
        Dim upperboundSecondDimension As Integer = columnCount - 1
        '
        Dim matrix(upperboundFirstDimension, _
                   upperboundSecondDimension) As Integer
        '
        Console.WriteLine("Start Value ?")
        Dim startValue As Integer = Console.ReadLine()
        Console.WriteLine()
        '
        Dim rowIndex, columnIndex, value As Integer
        value = startValue
        For rowIndex = 0 To upperboundFirstDimension
            For columnIndex = 0 To upperboundSecondDimension
                matrix(rowIndex, columnIndex) = value
                value += 1
            Next
        Next
        '
        For rowIndex = 0 To upperboundFirstDimension
            For columnIndex = 0 To upperboundSecondDimension
                Console.Write(matrix(rowIndex, columnIndex) & " ")
            Next
            Console.WriteLine()
        Next
        Console.WriteLine()
        '
        Dim backup As Integer = upperboundFirstDimension
        upperboundFirstDimension = upperboundSecondDimension
        upperboundSecondDimension = backup
        Dim transpone(upperboundFirstDimension, _
                      upperboundSecondDimension) As Integer
        For rowIndex = 0 To upperboundFirstDimension
            For columnIndex = 0 To upperboundSecondDimension
                transpone(rowIndex, columnIndex) = _
                                          matrix(columnIndex, rowIndex)
                Console.Write(transpone(rowIndex, columnIndex) & " ")
            Next
            Console.WriteLine()
        Next
        '
        Console.ReadLine()
    End Sub
End Module
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.