Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

@Erik - Sub/Array - Variante 1

Uploader:AdministratorSebastian
Datum/Zeit:30.07.2008 16:34:11

Declare Sub Erik()

Dim Shared 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

Sleep
End


Sub Erik()
    Dim i As Integer
    For i = 1 To 5
        Print Feld(i)
    Next i
End Sub