' Visual Basic 2008 9.0 .NET Examples - Multidimensional Arrays - Arrays : 
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
' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.