'Visual Basic 2010 Meerdimensionale Arrays Arrays
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
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.