Пример программы. Требуется написать программу расчета значения выражения

Требуется написать программу расчета значения выражения

при следующих значениях параметров:

- целые положительные числа в диапазоне от 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

Дата добавления: 2014-11-29