Спасибо
Добавлено через 1 день, 3 часа, 59 минут и 55 секунд:Вот как все-таки вышел из положения, хотя ответ все-равно не сходится
Private Sub cmd1_Click()
x = Val(txt1.Text)
If (x <> 0) And (x <> "") Then
u = (2 * Atn(3)) + (Log(7 * x))
v = x - (2 * Tan(1))
y = Cos(u) + (8 * Sin(3 * v))
p = Round(y, 3)
MsgBox p, vbInformation, "Ответ"
Else
MsgBox "Введите число", vbCritical, "Ошибка"
End If
End Sub
Private Sub cmd2_Click()
End
End Sub
Private Sub cmd3_Click()
txt1.Text = ""
End Sub
Пробовал в начале объявлять переменные
Dim x, u, y, v, p As Double
Думал, может повысится точность подсчета, но ничего не поменялось.