' Visual Basic 2008 9.0 .NET Examples - Multidimensional Arrays - Arrays : 
Module Example1
    Sub Main()
        Dim rowCount As Integer = 2
        Dim columnCount As Integer = 3
        '
        Dim upperboundFirstDimension As Integer = rowCount - 1
        Dim upperboundSecondDimension As Integer = columnCount - 1
        '
        Dim matrix(upperboundFirstDimension, upperboundSecondDimension) As Integer
        '
        matrix(0, 0) = 10
        matrix(1, 0) = 20
        matrix(1, 2) = 30
        '
        Console.WriteLine("first row, first column   : " & matrix(0, 0))
        Console.WriteLine("second row, first column  : " & matrix(1, 0))
        Console.WriteLine("second row, second column : " & matrix(1, 1))
        Console.WriteLine("third row, third column   : " & matrix(1, 2))
        '
        Console.ReadLine()
    End Sub
End Module
Module Example2
    Sub Main()
        Dim rowCount As Integer = 10
        Dim columnCount As Integer = 10
        '
        Dim upperboundFirstDimension As Integer = rowCount - 1
        Dim upperboundSecondDimension As Integer = columnCount - 1
        '
        Dim values(upperboundFirstDimension, _
                   upperboundSecondDimension) As Integer
        '
        Dim startValue As Integer = 101
        '
        Dim rowIndex, columnIndex As Integer
        For rowIndex = 0 To upperboundFirstDimension
            For columnIndex = 0 To upperboundSecondDimension
                values(rowIndex, columnIndex) = startValue
                startValue += 1
                Console.Write(values(rowIndex, columnIndex) & " ")
            Next
            Console.WriteLine()
        Next
        '
        Console.ReadLine()
    End Sub
End Module
Module Example3
    Sub Main()
        Dim rowCount As Integer = 10
        Dim columnCount As Integer = 10
        '
        Dim upperboundFirstDimension As Integer = rowCount - 1
        Dim upperboundSecondDimension As Integer = columnCount - 1
        '
        Dim values(upperboundFirstDimension, upperboundSecondDimension) As Integer
        '
        Dim baseValue As Integer = 101
        '
        Dim rowIndex, columnIndex As Integer
        For rowIndex = 0 To upperboundFirstDimension
            For columnIndex = 0 To upperboundSecondDimension
                values(rowIndex, columnIndex) = _
                                       baseValue + (rowIndex * 10) + columnIndex
                Console.Write(values(rowIndex, columnIndex) & " ")
            Next
            Console.WriteLine()
        Next
        '
        Console.ReadLine()
    End Sub
End Module
Module Exercise1Solution
    Sub Main()
        Console.WriteLine("Row Count ?")
        Dim rowCount As Integer = Console.ReadLine()
        Console.WriteLine("Column Count ?")
        Dim columnCount As Integer = Console.ReadLine()
        '
        Dim rowUpperbound As Integer = rowCount - 1
        Dim columnUpperbound As Integer = columnCount - 1
        Dim values(rowUpperbound, columnUpperbound) 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 rowUpperbound
            For columnIndex = 0 To columnUpperbound
                values(rowIndex, columnIndex) = value
                value += 1
                Console.Write(values(rowIndex, columnIndex) & " ")
            Next
            Console.WriteLine()
        Next
        Console.WriteLine()
        '
        Dim backup As Integer
        backup = values(rowUpperbound, columnUpperbound)
        For rowIndex = rowUpperbound To 1 Step -1
            For columnIndex = columnUpperbound To 1 Step -1
                values(rowIndex, columnIndex) = values(rowIndex, columnIndex - 1)
            Next
            values(rowIndex, 0) = values(rowIndex - 1, columnUpperbound)
        Next
        For columnIndex = columnUpperbound To 1 Step -1
            values(0, columnIndex) = values(0, columnIndex - 1)
        Next
        values(0, 0) = backup
        '
        For rowIndex = 0 To rowUpperbound
            For columnIndex = 0 To columnUpperbound
                Console.Write(values(rowIndex, columnIndex) & " ")
            Next
            Console.WriteLine()
        Next
        Console.WriteLine()
        '
        Console.ReadLine()
    End Sub
End Module
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.