fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

@Erik - Sub/Array - Variante 2

Uploader:	Sebastian
Datum/Zeit:	30.07.2008 16:35:31

Declare Sub Erik(Array() As Integer)



Dim Feld(1 To 5) As Integer

Dim i As Integer



Randomize Timer



Print "Zufallszahlen erzeugen"



For i = 1 To 5

    Feld(i) = Int(RND*100)+1

    Print Feld(i)

Next i



Print "Jetzt die SUB..."



Erik Feld() 'Array als Argument übergeben



Sleep

End





Sub Erik(Array() As Integer)

    Dim i As Integer

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

        Print Array(i)

    Next i

End Sub

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.