Помогите, пожалуйста, найти ошибку в коде.
Данные на картинке.
Код:
Private Sub Command1_Click()
n = InputBox("Введите значение N", "Ввод исходных данных")
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 z = Log(Abs((c - x) ^ Abs(x - c) - Log(x) / Log(10)))
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
Private Sub Command2_Click()
End
End Sub
После попытки выполнить - выдаёт ошибку Run-time error '5': Invalid procedure call or argument. После debug выделяет сегмент, выделенный выше синим.. Чувствую, что что-то с логарифмом намудрил. Помогите плиз.
Это на Visual Basic 6
