Уровнение с экспонентой - VBA

Узнай цену своей работы

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

Всем доброй ночи! Ребят только начал обучение в VBА, наткнулся на задание, когда сделал выбивает ошибку: Задание: програмка простенькая, имеет 3 кнопки: посчитать, очистить поля, выход. Если х >0, y>0 то решается первой функцией, в другий случаях - вторым. Вот система : Сама проблема я так думаю заключается в экспоненте, скорее всего неправильно где то написал. Помогите, очень прошу ! Вот код программы на кнопку "Посчитать" :

Решение задачи: «Уровнение с экспонентой»

textual
Листинг программы
Option Explicit
Private Sub CommandButton1_Click()
    Dim x As Double, y As Double, z As Double
    x = CDbl(TextBox1.Text)
    y = CDbl(TextBox2.Text)
    If x > 0 And y > 0 Then
          z = (x ^ 2) * Math.Sin(2 * y) * Math.Exp(-0.3 * x)
    Else
          z = (Math.Cos(y) ^ 2) + x ^ 2
    End If
    z = Format(z, "0.00")
    TextBox3.Text = CStr(z)
End Sub

Оцени полезность:

8   голосов , оценка 4.25 из 5
Похожие ответы