12. Создание программ обработка цифровой информации
Цель работы – изучение основ создания программ обработки цифровой информации средствами языка программирования VBA.
После выполнения работы студент должен знать основы разработки программ обработки цифровой информации, уметь создавать и отлаживать программы обработки цифровой информации средствами VBA.
12.1. Справочная информация
При решении большинства финансово – экономических задач пользователь многократно выполняет расчеты тех или иных показателей, значения которых описываются следующими основными типами данных: Integer, Long, Single, Currency, Variant (см. прилож. 13). При этом могут использоваться математические (+,-,*,/,\,^,Mod), логические (And, Or, Xor, Not) операции и операции отношений ( <, >, <=, >=, <>, = ), а также встроенные (стандартные) функции (см. прилож. 14).
При написании программ обработки математических выражений следует обращать внимание не только на физическое значение диапазона переменных (например, грузоподъемность судна, как и возраст студента, не могут быть величиной отрицательной), но и на допустимость тех или иных математических операций над значениями переменных (например, деление на ноль, четный корень из отрицательного числа, и т.д.). Для избежания подобных ситуаций в программах используются блоки логической проверки.
12.2. Пример программы
Требуется
написать программу расчета значения
выражения
при следующих значениях параметров:
-
целые положительные числа в диапазоне
от 0 до 30000;
- любое вещественное
число;
- любое неотрицательное
число в денежном формате (р.)
'Пример 1
'Лабораторная работа №2
'Первый вариант. Здесь не учитываются допустимые значения 'параметров, формат результата и не отслеживается нажатие 'кнопки Cancel
Sub Lab_rab_2 ()
Dim A, B, C As Integer, X, Y As Single
A = Val(InputBox("Введите A", "Ввод исходных данных"))
B = Val(InputBox("Введите B", "Ввод исходных данных"))
C = Val(InputBox("Введите C", "Ввод исходных данных"))
X = Val(InputBox("Введите X", "Ввод исходных данных"))
Y = (a * b) / Abs(x ^ 3) + c
MsgBox Y
End Sub
'Пример 2
'Лабораторная работа №2
Sub Lab_rab_2()
Dim A, B, C As Integer, X, Y As Single, Z As Currency
A = Val(InputBox("Введите A", "Ввод исходных данных"))
If A < 0 Then
MsgBox "Значение параметра A не может быть меньше нуля", _
vbExclamation, "Внимание ! "
Exit Sub
End If
B = Val(InputBox("Введите B", "Ввод исходных данных"))
If B < 0 Then
MsgBox "Значение параметра B не может быть меньше нуля", _
vbExclamation, "Внимание ! "
Exit Sub
End If
C = Val(InputBox("Введите C", "Ввод исходных данных"))
If C < 0 Then
MsgBox "Значение параметра C не может быть меньше нуля", _
vbExclamation, "Внимание ! "
Exit Sub
End If
X = Val(InputBox("Введите X", "Ввод исходных данных"))
If X = 0 Then
MsgBox "Значение X не может быть равно нулю!", _
vbCritical, "Недопустимое значение"
Exit Sub
End If
Y = (A * B) / Abs(X ^ 3) + C
z = MsgBox("Y равен " & Format(Y, "Currency"))
End Sub