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

Цикл While…Wend

Цикл While…Wend

Цикл While…Wend записывается в следующем виде:

While условие
 тело цикла
Wend

Таким образом, в цикле While…Wend условие выполнения тела цикла проверяется перед началом очередной итерации. Если условие равно true, то тело цикла выполняется, в противном случае цикл завершается.

Пример использования цикла While…Wend приведен в листинге П2.3.

Листинг П2.3. Пример использования цикла While…Wend

Dim theMoments, theCount
theMoments = ""
theCount = 42 'Начальное значение счетчика цикла
While (theCount >= 1)
 If (theCount > 1) Then
  theMoments = "До взрыва осталось " & theCount & " сек!"
 Else
  theMoments = "Осталась секунда!"
 End If
 theCount = theCount - 1 'Уменьшаем значение счетчика
Wend
theMoments = "ВЗРЫВ!"

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


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