Реализация линейных и разветвляющихся алгоритмов
В Visual Basic for Application для задания значения переменной используется оператор присваивания. Этот оператор имеет следующий вид: Переменная = Выражение Выражение может быть арифметическим, текстовым или логическим. Для записи выражений используются арифметические, текстовые и логические операции (операторы). Арифметические операторы служат для выполнения арифметических действий над числами (таблица 16.1).
Таблица 16.1 ‑ Арифметические операторы
Для объединения нескольких текстовых строк в единую последовательность букв служит текстовый оператор &;. Например, выражение " Энергетический " & " факультет" эквивалентно записи " Энергетический факультет". Для записи разветвляющихся алгоритмов используется оператор If (Если), который имеет две формы записи. 1. Однострочная запись: If условие Then [оператор] If условие Then [оператор 1] [ Else оператор 2] 2. Многострочная запись: If условие Then [оператор 1] [оператор 2] [оператор 3] End If В однострочном операторе условие и выполняемые при соблюдении условия действия располагаются в одной строке. В том случае, если при выполнении условия требуется выполнение блока операторов, используется многострочный оператор. После имени конструкции If должно следовать логическое выражение, содержащее условие. Для создания сложных условий используются логические операции And (И) и Or (Или). В качестве условия могут выступать следующие логические выражения: сравнение переменной с другой переменной, константой или функцией; любая переменная; выражение; поле базы данных; функция, принимающие значения True (Истина) или False (Ложь). Конструкция If … Then (Тогда) … Else (Также)аналогична конструкции If... Then, но позволяет задать действия, исполняемые как при выполнении условий, так и в случае их невыполнения. Команда If может проверить только одно условие. Если требуется осуществить переход управления в зависимости от результатов проверки нескольких условий, то дополнительное условие можно задать с помощью оператора Else If (Также Если). Оно будет анализироваться только в том случае, если предыдущее условие ложно. Ключевое слово End If обозначает конец многострочной конструкции и его наличие в команде в этом случае обязательно. Если указанное условие выполняется, то есть результат проверки равен True (Истина), то выполняются операторы, следующие за ключевым словом Then. Если условие не выполняется, то Visual Basic переходит к выполнению операторов, следующих за указанным оператором. В качестве примера приведем функцию определения корней квадратного уравнения:
Function Корни(a, b, c) d = b ^ 2 - 4 * a * c If d > = 0 Then x1 = (-b + d ^ (1 / 2)) / (2 * a) x2 = (-b - d ^ (1 / 2)) / (2 * a) Корни = " x1=" + str(x1) + "; x2=" + str(x2) Else Корни = " корней нет" End If End Function
Конструкция Select Сase позволяет обрабатывать в программе несколько условий и аналогична блоку конструкций If … Then … Else. Эта конструкция состоит из анализируемого выражения и набора операторов Case (в случае) на каждое возможное значение выражения. Работает эта конструкция следующим образом. Сначала вычисляется значение заданного в конструкции выражения. Затем полученное значение сравнивается со значениями, задаваемыми в операторах Сase конструкции. Если найдено искомое значение, выполняются команды, приписанные данному оператору Case. После завершения выполнения конструкций управление будет передано конструкции, следующей за ключевым словом End Select. Запись конструкции Select Case следующая: Select Case сравниваемое значение CASE значение 1 конструкция 1 CASE значение 2 конструкция 2
|
