fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Arraybeispiel mit Gleitkommazahlen

Uploader:	Sebastian
Datum/Zeit:	17.08.2010 14:19:23

Randomize Timer 'Zufallsgenerator initialisieren



Dim i As Integer

Dim Gast(1 To 10) As Single 'Array deklarieren



'Irgendwelche Werte zufaellig festlegen

'Mit einer Zählschleife (siehe Wikipedia) das Array von vorne (=LBound)

'bis hinten (=UBound) durchlaufen

For i = LBound(Gast) To UBound(Gast) 'i = Laufindex

    Gast(i) = RND/10000

Next i



Print "Arrayinhalt:"



'Jetzt das Array mit einer Schleife ausgeben

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

    Print Gast(i);  'Normale Ausgabe (Exponentialschreibweise)

    Print "  "; 'Etwas Abstand

    Print Using "##.######"; Gast(i)  'Formatiert mit PRINT USING

Next i



Sleep

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.