помогите пожалуйста.вот фото.QBasic

Один из вариантов на VBA EXCEL
Sub raschetZ()
x = Cells(2, 3)
Y = Cells(4, 3)
Z = 0
If x > 1 And Y > -1 Then   
          Z = Cos(x - Y) + (Cos(x + Y)) ^ 2
Else   
          If x = 0 Then
                  Z = "решение отсутствует. при X=0 деление на 0"   
           Else       
                  Z = (x + Y) * Y / -x   
         End If
End If
Cells(6, 3) = Z
End Sub