VBA: Решение уравнения

[Bezmenov]

Нужно решить уравнения с помощью 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

[свернуть]

[Bezmenov]

Спасибо, все работает.