Шаг 68.
Циклы Do ... Loop

    На этом шаге мы рассмотрим циклы Do ... Loop.

    Используя эти служебные слова, можно “сконструировать” как циклы с предусловием (сначала проверяется условие, а потом выполняется тело цикла), так и с постусловием (сначала выполняется тело цикла, а затем проверяется условие). Взгляните на следующую таблицу:

Таблица 1.Возможные конструкции циклов Do ... Loop
Конструкция Описание
ЦИКЛЫ С ПРЕДУСЛОВИЕМ 
Do While <условие>
      <тело цикла>
Loop
Сначала проверяется условие. Если оно истинно, то выполняется тело цикла, после чего снова осуществляется переход на проверку условия. Тело цикла выполняется до тех пор, пока условие не станет ложным. 
Do Until <условие>
      <тело цикла>
Loop
Сначала проверяется условие. Если оно ложно, то выполняется тело цикла, после чего снова осуществляется переход на проверку условия. Тело цикла выполняется до тех пор, пока условие не станет истинным.
ЦИКЛЫ С ПОСТУСЛОВИЕМ 
Do
    <тело цикла>
Loop While <условие>
Сначала выполняется тело цикла, после чего осуществляется проверка условия. Если оно истинно, то снова выполняется тело цикла. Это повторяется до тех пор, пока проверяемое условие не станет ложным. 
Do
     <тело цикла>
Loop Until <условие>
Сначала выполняется тело цикла, после чего осуществляется проверка условия. Если оно ложно, то снова выполняется тело цикла. Это повторяется до тех пор, пока проверяемое условие не станет истинным.

    Проиллюстрируем использование указанных конструкций на простом примере: создадим HTML-документ, содержащий 4 кнопки, активизация каждой из которых приведет к выводу на экран суммы первых 10 натуральных чисел. Нажатие любой кнопки ведет к выполнению соответствующей процедуры, реализующей одну из перечисленных конструкций цикла.

    Приведем текст этого HTML-документа: 

<HTML>
<HEAD>
<TITLE>Пример №1</TITLE>
<SCRIPT LANGUAGE=VBScript>
<!--
Sub Button1_OnClick()
  Sum = 0
  i = 1
  Do While i<=10
    Sum = Sum + i
    i = i + 1
  Loop
  Alert "Сумма при использовании цикла Do While равна:"&Sum
End Sub

Sub Button2_OnClick()
  Sum = 0
  i = 1
  Do Until i>10
    Sum = Sum + i
    i = i + 1
  Loop
  Alert "Сумма при использовании цикла Do Until равна:"&Sum
End Sub

Sub Button3_OnClick()
  Sum = 0
  i = 1
  Do 
    Sum = Sum + i
    i = i + 1
  Loop While i<11
  Alert "Сумма при использовании цикла Loop While равна:"&Sum
End Sub
Sub Button4_OnClick()
  Sum = 0
  i = 1
  Do  
    Sum = Sum + i
    i = i + 1
  Loop Until i>10
  Alert "Сумма при использовании цикла Loop Until равна:"&Sum
End Sub
'-->
</SCRIPT>
</HEAD>
<BODY>
<H2>Демонстрация четырех конструкций циклов</H2>
Щелчок по каждой из кнопок выводит сумму первых 10 натуральных чисел.
<FORM>
<INPUT TYPE="BUTTON" NAME="BUTTON1" Value="Цикл Do While"> 
<INPUT TYPE="BUTTON" NAME="BUTTON2" Value="Цикл Do Until"> 
<INPUT TYPE="BUTTON" NAME="BUTTON3" Value="Цикл Loop While"> 
<INPUT TYPE="BUTTON" NAME="BUTTON4" Value="Цикл Loop Until"> 
</FORM>
</BODY>
</HTML>
Текст этого документа можно взять здесь.

    Результат просмотра этого HTML-документа в браузере изображен на рисунке 1:


Рис.1. Результат просмотра документа в браузере

    На следующем шаге мы рассмотрим цикл For ... Next.




Предыдущий шаг Содержание Следующий шаг