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

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

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


textual

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

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник