Создать приложение, вычисляющее значения переменных по заданным расчетным формулам - VB (170086)

Option Explicit
Dim a!, b!, x!, w!, z!
 
Private Sub cmdR_Click()
    a = Val(txtA.Text)
    b = Val(txtB.Text)
    x = Val(txtX.Text)
    z = Sqr(a * x * Sin(2 * x) + Exp(-2 * x) * (x + b))
    w = Cos(x ^ 3) ^ 2 - x / Sqr(a ^ 2 + b ^ 2)
    Print "Z ="; z
    Print "W ="; w
End Sub