DO [ WHILE Expression ]
Открывает структуру бесконечного цикла, ограниченного инструкциями DO ... LOOP . Если задано WHILE , цикл завершается, когда Expression становится ложно (false). Если expression ложно в начале цикла, цикл не выполняется совсем.
PUBLIC SUB Form_Open()
DIM a AS Integer
a = 1
DO WHILE a <= 10
PRINT "Hello World"; a
INC a
LOOP
END
BREAK, CONTINUE, FOR, FOR EACH, LOOP, REPEAT, UNTIL, WHILE, WITH