Программа шаг за шагом

Эта программа показывает вам использование команды For-next, которая была модифицирована командой Step.

Вам нужна только пустая форма для работы программы.

Код:

PUBLIC SUB Form_Open()
DIM x AS Integer
FOR x = 0 TO 100 STEP 5
PRINT x,
NEXT
END

You should get the following result:

0 5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 100

The colon does not work here. I don´t know why.

Try some similar code with funny results:

PUBLIC SUB Form_Open()
DIM i AS Integer
FOR i = 1 TO 100 STEP i
PRINT i
NEXT
END

Or this code

PUBLIC SUB Form_Open()
DIM i AS Integer
DIM x AS Integer
FOR x = 1 TO 10
FOR i = 1 TO 100 STEP x
PRINT i & " ";
NEXT
NEXT
END

-- ReinerHoffmann - 09 Aug 2004