ВУЗ:
Составители:
Рубрика:
12
Discont = 0.05
End if
Else
Discont = 0
Если дерево условий гораздо сложнее, чем просто проверка одного условия,
используется оператор If ... Then ... Elseif, который позволяет проверять несколько
условий:
If условие 1 Then
<группа операторов 1>
Elseif условие 2 Then
<группа операторов 2>
Else
<группа операторов n>
End if
Первым проверяется условие 1. Если оно имеет значение True, то выполняется
группа операторов 1 и далее работа программы
продолжится со строки, которая следует
за ключевым словом End if. Если условие 1 возвращает значение False, то проверяется
условие 2 и т.д., пока не встретится условие, возвращающее значение True, или не
встретится ключевое слово Else.
Если нужно проверить достаточно много условий, то оператор If ... Then может
стать слишком сложным. В этом случае применяется оператор выбора, или
переключатель Select Case, который
выполняет одну из нескольких групп операторов в
зависимости от значения выражения.
ОПЕРАТОРЫ ЦИКЛОВ
Циклы – это программные структуры, выполняющие важнейшую функцию в
работе компьютера. Цикл – это оператор или группа операторов, которые программа
многократно выполняет до тех пор, пока не получит команду начать выполнение чего-
нибудь другого.
В Visual Basic существуют два основных типа
циклов: циклы со счетчиком и
циклы с условием.
Циклы со счетчиком (с известным числом повторений) называют еще циклами
For ... Next. Синтаксис цикла со счетчиком таков:
For Счетчик цикла = НачальноеЗначение То КонечноеЗначение [Step (Шаг)]
Операторы: [Exit For], Next [Счетчик цикла].
Step (Шаг) – число, задающее шаг цикла, т.е. значение, на которое увеличивается
или уменьшается значение счетчика
на каждом шаге. Это число может быть
отрицательным. Если ключевое слово Step отсутствует, то значение шага равно 1.
Exit For – оператор досрочного выхода из цикла (необязательный).
Пример. Просуммировать четные числа натурального ряда до 50 включительно,
сумму поместить в ячейку рабочего листа Excel.
Программный код реализации этой задачи может выглядеть так:
Sub sum()
Dim f As Integer, sum As Integer ‘объявляются переменные типа
целое число
sum = 0
For f=2 То 50 Step 2 ‘переменной, являющейся счетчиком, присваивается
