Книга: Windows Script Host для Windows 2000/XP

Цикл Do…Loop

закрыть рекламу

Цикл Do…Loop

Этот цикл может применяться в двух видах (с предусловием, которое проверяется до начала очередной итерации, и с пост-условием, которое проверяется после окончания итерации):

Do [While | Until] условие
 тело цикла
 [Exit Do]
 тело цикла
Loop

или

Do
 тело цикла
 [Exit Do]
 тело цикла
Loop [While | Until] условие

Если в цикле используется ключевое слово While, то итерации продолжаются до тех пор, покаусловие равно true; если же применяется Until, то как только значением условия станет true, произойдет выход из цикла.

Оператор Exit Do позволяет выйти из цикла до завершения его итераций.

Пример использования цикла Do…Loop приведен в листинге П2.4.

Листинг П2.4. Пример использования цикла Do…Loop

Dim howFar 'Верхний предел для счетчика цикла
Dim sum(10) 'Массив из 11 элементов, индексы от 0 до 10
Dim icount, theSum
howFar = 10
theSum = 0
sum(0) = 0
'Цикл выполнится 11 раз
Do
 theSum = theSum+icount
 sum(icount) = theSum
 icount=icount+l
Loop While (icount < howFar)

Оглавление книги


Генерация: 0.958. Запросов К БД/Cache: 4 / 1
поделиться
Вверх Вниз