Пример программы
Требуется написать программу расчета значения выражения
при следующих значениях параметров:
- целые положительные числа в диапазоне от 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