logo
VBA-методПособие

4.12 Цикл Do…Until

 

Повторяющиеся вычисления можно организовать, используя в программах, другой оператор Do…Until. Общий вид в алгоритме этого оператора следующий:

 

 

 

 

 

 

 

 

Нет Да

 

 

 

 

 

 

 

 

 

 

 

 

Синтаксис оператора следующий:

 

Do P1 P2

.

.

Pn;

Loop Until <логическое выражение>

 

Цикл с оператором Do…Loop Until начинается с выполнения операторов внутри цикла, поэтому цикл, организованный с помощью этого оператора, в любом случае выполнится хотя бы один раз. Затем проверяется логическое выражение и если оно истинно, то осуществляется выход из цикла. Если же значение логического выражения ложно, то выполнение операторов P1, P2, PN повторяется, а затем вновь проверяется логическое выражение.

Другая возможная запись цикла:

 

Do P1 P2

.

Pn;

Loop While <логическое выражение>

 

Как будет организованно выполнение операторов при решении задачи: Найти сумму целых чисел от 1 до 50 в цикле Do…Loop While? Переменная К всё так же необходима для подсчёта количества повторений цикла, а так как мы знаем, что слагаемых 50, то логично в качестве условия выхода из цикла задать условие к=50. Таким образом, накопление суммы в ячейке SUM будет происходить до тех пор, пока не будут просуммированы все 50 слагаемых.

 

1. В редакторе Visual Basic создайте процедуру и назовите её Сумма

2. Введите код процедуры, как на рис. 43

3. Убедитесь, что ответ равен 1275

Рис. 42 Окно с ответом

Рис. 43 Код процедуры Сумма целых чисел

 

Список литературы

 

 

  1. А. Гарнаев Excel, VBA, Internet в экономике , BHV, 2000г.

  2. А. Гарнаев Excel 2000 Разработка приложений, BHV, 2000г.

  3. А. Гарнаев Visual Basic 6.0 Разработка приложений, BHV, 2001г.

  4. Дёмин В. М. «Методы адаптивной автоматизации системы управления средним специальным учебным заведением – Казань, 2002 г.

  5. Подлин Ш. Программирование для Microsoft Excel, Вильямс, -М. 2000г.

  6. Попов В.Б. ТurboPascal для школьников. Версия 7.0 - М.: Финансы и статистика, 1996 г.

  7. Программа развития Красногорского оптико-электронного колледжа на 2002-2003 учебный год. Цели, задачи коллектива, направления и методы их решения.

  8. Программа информатизации колледжа на 2002-2005 годы.

  9. Хальворсон М. Visual Basic для профессионалов, ЭКОМ, - М. 2000

5