Вычислить значение функции - VB (171791)

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

Вычислить значение функции у: В остальных случаях остановить вычисления. Значение х вводится с клавиатуры.

Решение задачи: «Вычислить значение функции»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
x = Val(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ x:"))
If x >= 0 And x <= 1 Then
  y = Cos(x ^ 3 + Atn(x))
ElseIf x > 1 Then
  y = Sin(5 * x) + x * Log(x) - 10.2 / (1 - x) ^ 4 + 7
End If
MsgBox "y = " & y
End Sub
                        