Excel (VBA). Посчитать значение функции sin(x)*cos(x) - VBA

Формулировка задачи:

Здравствуйте, все перепробовал... но никак не получается. Дело в том что нужно сделать небольшую программу которая будет считать значение функции sin(x)*cos(x). Расчеты будут производится на форме. Как выглядит форма.. картинку прикрепил)

Код к задаче: «Excel (VBA). Посчитать значение функции sin(x)*cos(x) - VBA»

textual
Private Sub CommandButton1_Click()
If InStr(TextBox1, ",") > 0 Then
    x = CDbl(TextBox1.Value)
Else
   x = Val(TextBox1)
End If
    TextBox2.Value = Sin(x) * Cos(x)
End Sub

12   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ