fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Mehrdimensionales Array durchlaufen

Uploader:	Sebastian
Datum/Zeit:	26.02.2012 17:43:07

Randomize Timer  'Zufallszahlen-Generator initialisieren



Dim As Integer i,j,k,l  'Indizes



ReDim Child(40,3,20,20) As Integer   'Mehrdimensionales Array



For i = LBound(Child) To UBound(Child)

    For j = LBound(Child,2) To UBound(Child,2)

        For k = LBound(Child,3) To UBound(Child,3)

            For l = LBound(Child,4) To UBound(Child,4)

                Child(i,j,k,l) = Rnd*100  'Zufallszahl generieren

                Print Using "Child(##_,#_,##_,##) = ###"; i; j; k; l; Child(i,j,k,l)

            Next l

        Next k

    Next j

Next i



sleep

end

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.