fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Arrayinhalt in einer Zeile ausgeben

Uploader:	Sebastian
Datum/Zeit:	01.04.2008 18:08:05

'Arrayelemente in einer Zeile ausgeben



CLS



DIM AS INTEGER i, z, p

DIM AS INTEGER Test(5) = {123,456,999,111,101,321}



' Zunächst ohne LOCATE:

PRINT "Inhalt des Arrays:"

FOR i = LBOUND(Test) TO UBOUND(Test)

    PRINT USING "### "; Test(i);

NEXT i

PRINT ""



'Jetzt mit LOCATE:

PRINT "Inhalt des Arrays:"

z=CSRLIN

FOR i = LBOUND(Test) TO UBOUND(Test)

    IF i = 0 THEN

        p = 1

    ELSE

        p = i*4+1

    END IF

    LOCATE z,p: PRINT TRIM(Str(Test(i)))

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.