1. В редакторе Visual Basic напишите код процедуры, как на рис. 35

Рис. 35 Код процедуры Ball с оператором Select Case

 

2. Запустите её на выполнение и убедитесь в том, что она работает

Вы видите, что код этой процедуры более прост для восприятия, и в случае трёх и более возможных разветвлений в программе лучше использовать оператор Select Case.

 

 

 

 

 

2. Циклический алгоритм

 

Очень часто в программах надо выполнить определённые операторы несколько раз. Не логично записывать эту последовательность действий 20 или 50 раз подряд. В этих случаях организуют циклические вычисления. Алгоритм называется циклическим, если определенная последовательность шагов выполняется несколько раз в зависимости от заданной величины, которая называется параметром цикла.

 

 

2. Оператор цикла For…Next

 

Общий вид в алгоритме конструкции оператора For…Next, который позволяет выполнить группу операторов или один оператор заданное количество раз, следующий:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Синтаксис для цикла For…Next следующий:

 

For I= N₁ To N₂ Step h

P₁

.

. Тело цикла

P_n

Next

 

Где For(для), To(до), Step(шаг), Next(следующий) - служебные слова VBA, а P₁, P_n - операторы. Step является необязательным параметром. Если он опущен в программе, то значение параметра I увеличивается на 1. Параметр Step может быть любым действительным числом, как целым, так и дробным, как положительным, так и отрицательным. Работает оператор For следующим образом:

При первом вхождении в цикл, параметр цикла I принимает значение равное величине нижней границы N₁ и выполняется оператор или операторы в теле цикла. Затем значение параметра увеличивается на величину шага и вновь выполняется тело цикла. Подобные действия будут повторяться до тех пор, пока значение параметра цикла не станет больше величины N₂, после чего осуществляется выход из цикла.

 

В качестве примера выполните следующее задание:

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

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

Рис. 36 Код процедуры Цикл

 

3. Запустите её на выполнение и убедитесь в том, что она работает

 Переменная счёт выступает в этом примере в качестве параметра цикла, и будет менять своё значение от 1 до 4. В цикле 4 раза будет появляться окно сообщения за счёт использования функции MsgBox. С помощью значка конкатенации к сообщению будет добавляться значение переменной счёт, а также слово год(а).

 

Ещё одним примером, демонстрирующим работу оператора For…Next, является решение задачи: Найти сумму целых чисел от 1 до 50.

Код процедуры представлен на рис. 37

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

 

В этом примере, описав, переменные счёт и сумма как целочисленные, обнуляется значение переменной сумма. Для чего это делается? Мы берём произвольную ячейку памяти компьютера и должны быть уверены в том, что в ней ничего не содержится. Ведь в цикле будет выполняться оператор сумма = сумма + счёт, то есть к тому что было в ячейке сумма прибавляется значение переменной счёт. И мы должны знать, что предварительно туда занесёно значение нуля. В результате запуска процедуры на выполнение Вы получите ответ: 1275.

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

 

К рассмотренному примеру мы вернёмся позже, когда будем изучать другие операторы цикла.