Нужно решить уравнения с помощью VBA. Подскажите, как это сделать? Вот сами уравнения:
Z1=(cos(a)-cos(b))^2-(sin(a)-sin(b))^2
Z2=-4*sin^2((a-b)/2)*cos(a+b)
a и b нужно вводить вручную.
Макрос
Sub Макрос()
' Создание в оперативной памяти компьютера поименованных областей - переменных.
' Переменные - это как файлы, но они находятся не на жёстком диске компьютера,
' а в оперативной памяти.
' Переменные нужны, чтобы в них что-нибудь записывать.
' Double - означает, что в переменной могут быть только числа, причём числа
' могут быть как целые, так и дробные.
Dim Z1 As Double, Z2 As Double
Dim a As Double, b As Double
'1. Запись чисел в переменные с помощью инструмента "InputBox".
a = InputBox("Укажите, чему равно a:")
b = InputBox("Укажите, чему равно b:")
'2. Расчёт формулы 1.
Z1 = (VBA.Cos(a) - VBA.Cos(b)) ^ 2 - (VBA.Sin(a) - VBA.Sin(b)) ^ 2
'3. Расчёт формулы 2.
Z2 = -4 * VBA.Sin((a - b) / 2) ^ 2 * VBA.Cos(a + b)
'4. Вывод результата на монитор с помощью инструмента "MsgBox".
MsgBox "Z1 = " & Z1 & vbCr & "Z2 = " & Z2
End Sub