- •Московский государственный университет технологий и управления
- •2. Методические указания к выполнению
- •3. Задания.
- •4. Алгоритмический язык Visual Basic for Application
- •4.1. Алфавит
- •1) 26 Букв латинского алфавита a-z.
- •2) 10 Арабских цифр 0-1.
- •3) Специальные символы.
- •4) Ключевые слова.
- •4.2. Типы данных
- •Переменные.
- •Константы.
- •4.3 Оператор присваивания.
- •Арифметические выражения.
- •Примеры записи оператора присваивания.
- •4.4 Оператор вывода информации на экран
- •4.5 Примеры программ
- •4.6 Ввод информации с использованием клавиатуры.
- •4.7 Условные операторы.
- •Условный логический оператор
- •4.8 Оператор цикла.
- •4.9. Массивы.
Условный логический оператор
Условный логический оператор записывается в виде:
IfусловиеThen
оператор или операторы
Else
оператор или операторы
End If
Условие - это логическое выражение, которое может принимать только одно из двух значений: истина или ложь. Частным случаем логического выражения является отношение - операция сравнения двух величин. В таблице 2 приведены принятые в VBAобозначения операций отношения. Оператор выполняется следующим образом. Вычисляется значение логического выражения (условия). Если это значение есть "истина", то выполняется оператор или группа операторов, записанных после ключевого словаThen, иначе управление работой программы передается на операторы, которые следуют за словомElse. Заканчивается оператор словамиEndIf
Этот оператор позволяет в случае необходимости разместить после служебного слова Thenнесколько операторов, в качестве которых можно использовать операторы присваивания, ввода-вывода, безусловного перехода, а также другой оператор условного перехода.
Таблица 2
Операция |
Больше |
Меньше |
Равно |
Не равно |
Больше или равно |
Меньше или равно |
Обозначение |
> |
< |
= |
<> |
>= |
<= |
Пример.
If x>0 Then
a = 1 + x
b = 1
Else
a = 1 – X
b = 2
End If
Слово Elseи следующие за ним оператор или операторы можно опустить. В этом случае условный оператор записывается в виде:
If (условие)Then
оператор или операторы
End If
Пример:
If ( x>0) Then
GoTo M1
End If
Строчный условный оператор
Строчный условный оператор записывается всегда в одной строчке. Он имеет вид:
If условие Then оператор
Примеры.
If а>b Then y=x^2+1
If x>0 Then go to M5
Последняя запись означает: если х больше нуля, то должен выполняться оператор, помеченный меткой M5.
Пример
Разработать программу вычисления функции f(x) для аргумента x, изменяющегося от 0 до 1 с шагом Dx равным 0,25.
Программа.
Приведенная программа выполняется следующим образом. Аргументу x присваивается значение 0. Вычисляется функция f. В окно отладки выводятся значения x и f. После этого аргумент x увеличивается на 0.25. Теперь необходимо перейти к оператору, помеченному меткой М5, и повторить вычисления, используя новое значение x. Но прежде надо проверить условие окончания расчета. Для этого в программе используется отношение x < 1.125. Здесь текущее значение аргумента х сравнивается с числом, несколько большим его заданного конечного значения. Дело в том, что в ПК любое вещественное число изображается ограниченным количеством цифр. Поэтому некоторые константы, например 1/3, не могут быть точно представлены в машине. Из-за этого арифметические операции в компьютере выполняются с ошибками округления. После многократного увеличения х на 0.25 эта переменная получит значение 1±e, где e - ошибка вычисления. Использование отношения x <= 1.0 может привести к тому, что при заданном конечном значении аргумента функция не будет вычисляться, так как x окажется равным 1+e, т.е. больше 1. При проверке условия на окончание вычислений следует сравнивать аргумент не с заданным конечным его значением, а с числом несколько большим, например, большим на половину шага. Программа и результаты расчета приведены на рисунке 4.
Пример 5. Вычислить значение функции F(x) для аргумента х, значение которого вводится в окне ввода.
F(x)=a sin x,
где а=1+x, если x>0 и а=1-x, в остальных случаях.
Программа.
Sub Пример_5 ()
x = InputBox(“Введите х”,”Пример_5”)
If x>0 Then
a=1+x
Else
a=1-x
End If
F = a*SIN(x)
Debug.Pint ”x=”; x, ”F=”; F
End Sub
Рис.4
Пример 6. Разработать программу вычисления функции f:
Значения переменных x и y ввести с клавиатуры. Результат расчета вывести на экран в окно отладки. Программа и результаты расчета приведены на рисунке 5. Так следует записывать текст задания №2.
Рис.5