Пример использования циклов

Следующий пример наглядно показывает, как организуется совместная работа цик-лов, условий и логических операторов. В нем описанные ранее разновидности циклов используются для заполнения нескольких текстовых полей на форме. Хотя такая программа не обладает особой практической ценностью, она хорошо демонстрирует работу различных циклов.

1. Создайте новый проект командой File > New Project.

2. В диалоговом окне New Project выберите значок Standard EXE и нажмите кнопку ОК.

3. Задайте свойству Name формы Form1 значение frmMain, а свойству Caption — значение Циклы.

4. Откройте редактор меню клавишами Ctrl+E. 5. Создайте меню верхнего уровня, указывая в поле Caption значение & Цикл. Введите в поле Name значение mnuLoop.

6. Создайте новый объект меню (нажмите кнопку Next в редакторе меню).

7. Нажмите кнопку со стрелкой , расположенную прямо над списком (рис. 6.7), чтобы снабдить созданный объект единичным отступом. При этом он становится командой меню верхнего уровня.

Рис. 6.7. Создание команды меню

8. Введите в поле Caption значение & For... Next, а в поле Name — значение mnuLoop ForNext.

9. Нажмите кнопку Next, чтобы создать следующую команду меню. Обратите внимание: она уже снабжена необходимым отступом, поэтому нажимать кнопку со стрелкой не нужно.

10. Введите в поле Caption значение & Do... Loop, а в поле Name — значение mnuLoopDo-Loop.

11. Нажмите кнопку Next, чтобы создать следующую команду меню. Введите в поле Caption значение & While... Wend, а в поле Name — значение mnuLoopWhileWend.

12. Нажмите кнопку Next, чтобы создать следующую команду меню. Введите в поле Caption значение «-» (дефис), а в поле Name — значение mnuLoopSep1.