5. Цикл Do…Loop

Применяется в том случае, когда число повторений заданного блока операторов (тело цикла) заранее неизвестно. Существует четыре разновидности данной конструкции.

При использовании первых двух цикл либо выполнится много раз, либо не выполнится вообще (если проверяемое условие не выполняется). Эти конструкции выглядят следующим образом:

Do [{While | Until} логическое_выражение]

блок_операторов_1

[Exit Do]

[блок_операторов_2]

Loop

При использовании последних двух конструкций цикл будет выполнен хотя бы один раз. Эти конструкции выглядят следующим образом:

Do

блок_операторов_1

[Exit Do]

[блок_операторов_2]

Loop [{While | Until} логическое_выражение]

В данных конструкциях :

Блок_операторов_1 и блок_операторов_2 между Do и Loop составляют тело цикла.

Логическое_выражение - условие, значение которого проверяется на каждом шаге цикла и влияет на окончание выполнения тела цикла.

While определяет выполнение операторов, входящих в цикл, пока значение логическое_выражение равноTrue.

Until определяет выполнение операторов, входящих в цикл, пока значение логического_выражения равно значению False.

Exit Do используется для досрочного прекращения выполнения цикла (см. Exit For в разделе 2.7.2.4).

Положение "{While | Until} логическое_выражение" в конструкции Do…Loop определяет, когда производится проверка условия - в начале цикла или в конце цикла. В первых двух конструкциях, проверка условия производится в начале выполнения цикла, а в последних двух конструкциях - в конце выполнения цикла.

В цикле Do…Loop должен содержаться хотя бы один оператор, влияющий на изменение значения логическое_выражение, в противном случае произойдет "зацикливание" программы.

Пример. В результате выполнения кода в обеих вариантах значение переменной Sum будет равно 8.

'Вариант реализации с помощью цикла с предусловием

Dim j As Integer

Dim Sum As Single

Sum=2 : j=1

Do While Sum < 7

Sum = Sum + j

j=j+1

Loop 'конец цикла

'Вариант реализации с помощью цикла с постусловием

Dim j As Integer

Dim Sum As Single

Sum=2 : j=1

Do

Sum = Sum + j

j=j+1

Loop Until Sum > 7 'конец цикла

8. Процедуры и функции

Решение сложных задач можно облегчить, разделив их на более простые части (подзадачи). При программировании подзадач можно использовать процедуры или функции.

Под процедурой или функцией понимается последовательность операций, которую нужно многократно выполнить в различных местах приложения. При этом требуемый блок команд записывается в коде программы один раз, после чего к нему можно обращаться из любой части программы.

Существует несколько разновидностей описанных элементов программирования.

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

Встроенные (стандартные) функции - определенные в VB наборы команд. Предназначены для вычисления тех или иных значений на основании исходных данных. Встроенными являются, в частности, математические, строковые и т.д. функции (например, Abs, Sin, Val и другие).

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

В данном разделе будут рассмотрены стандартные функции, а также пользовательские процедуры и функции. Можно, конечно, программировать и без них. Но именно с их помощью программу удобно представлять в виде отдельных блоков – «кирпичиков», которые делают процесс программирования более точным, четким и понятным.

Пользовательские процедуры и функции начинают работать после их явного вызова из какого-то места программы. После их выполнения происходит автоматический возврат в то место программы, откуда они были вызваны. Каждой вызываемой процедуре или функции присваивается уникальное название – имя.

В VB для создания тела процедуры или функции можно использовать команду Add procedure из пункта меню Tools. При этом, после выбора этой команды, надо включить переключатель Sub (для процедуры) или Function (для функции) и указать ее имя (текстовое окно Name). После щелка по кнопке ОК заготовка процедуры, соответственно функции появится в разделе General.