Надо решит эту функцию - VB

Private Sub Command1_Click()
Dim A()
Dim B As Double
Dim X As Double
B = 2.8
X = 3
A = Array(0.2, 4, 7)
For i = 0 To 2
  Print "Значение функции Z(" & A(i) & ")=" & Z(CDbl(A(i)), B, X)
Next
End Sub
Function Z(ByVal A As Double, B As Double, X As Double) As Double
  Z = (3 * Tan(7.8 * A * X ^ 2) + B * X) / ((X ^ (1 / 3)) + (((X ^ 2) * 2) ^ (1 / 2)) + (Abs((A * X + B) ^ 3)) ^ (1 / 2))
End Function