Программирование на BASIC / Visual Basic / Visual Basic 6.0 / Index20

.title_1 { FONT-WEIGHT: normal; FONT-SIZE: 20px; FONT-FAMILY: Arial, sans-serif; TEXT-ALIGN: left } .title_2 { FONT-WEIGHT: normal; FONT-SIZE: 18px; FONT-FAMILY: Arial, sans-serif; TEXT-ALIGN: left }   Оператор DO...LOOP

Оператор do. . .loop чем-то похож на оператор while. . .wend, но возможности его применения несколько шире — проверяемое условие может быть использовано не только в начале оператора, но и в конце.

Поэтому возможны четыре различные формы написания оператора:

первая форма

DO UNTIL условие

тело_цикла LOOP вторая форма

DO WHILE условие

тело_цикла LOOP третья форма

DO

тело_цикла LOOP UNTIL условие четвертая форма

DO

тело цикла

LOOP WHILE условие

Если используется ключевое слово until, цикл будет выполняться, только когда условие имеет значение "ложь".

При указании ключевого слова while цикл будет выполняться до тех пор, пока условие будет иметь значение "истина".

Размещение условий в начале или конце цикла приводит к разным результатам: при проверке условия в конце оператора цикла, конструкции, составляющие его тело, будут исполняться хотя бы один раз, в то время как при проверке условия в начале возможен вариант, что цикл исполняться вообще не будет. Например:

к=о

? "Значение К в начале цикла равно"; К DO WHILE К < 10

К=К+1 LOOP ? "Значение К в конце цикла равно"; К

Кстати, чему же будет равно значение к в конце цикла?

220. Напишите программы — одну с оператором do ... loop while, а другую с do ... loop until, — которые бы выводили на экран расположенные по диагонали экрана круги, закрашенные цветами с 1 по 6 (рис. 1.64). Параметр цикла — номер цвета.

Рис.1.64. Разноцветные круги