Question

VB实例问题 求某个数的立方根的代码编程

原题是：用迭代法求解x=a^(1/3),迭代公式为x(i+1)=2/3*xi+a/3*xi^2;到最后两项绝对值小于10的-5次幂为止 【紧急求助】

Answer 1

Dim x0 As Single
Do
If x0 = 0 Then
x0 = InputBox("请输入初值")
Else
x0 = a
End If
a = Sqr(x0)

Loop Until Abs(a - x0) < 0.0000001

End Function

Answer 2

function cube_root(byval number as double) as double
cube_root=number^(1/3)
end function