Private Sub Command1_Click()
n = InputBox("A", "B")
x = 0.254 / Cos(n)
c = Sin(2.6 * n)
If Tan(x) - Exp(-c) > 0.564 Then
Z = (Abs(Sin(x) ^ 3 - 12 * Cos(c))) ^ (1 / 5)
Else
If ((Int(x - c) = (x - c)) And (Abs(x - c) Mod 2 = 0)) Then
Z = Log(Abs(Abs(c - x) ^ Abs(x - c) - Log(x) / Log(10)))
Else
Z = Log(Abs(Sgn(c - x) * Abs(c - x) ^ Abs(x - c) - Log(x) / Log(10)))
End If
End If
If Tan(x) - Exp(-c) > 0.564 Then
l = MsgBox("Условие выполняется!", vbOKOnly, "Выполняется ли условие?")
Else
l = MsgBox("Условие не выполняется!", vbOKOnly, "Выполняется ли условие?")
End If
Z = MsgBox("Z=" + Str(Z), vbYes, "Результаты расчета")
End
End Sub