·VB用迭代法求立方根

Dim x1&, x0&, t!
Private Sub Command1_Click()
x0 = Val(Text1)
a=x0
Do
x1 = (2 / 3) * x0 + (a / (3 * x0*x0))
t = x0
x0 = x1
Loop Until Abs(x0 - t) < 10 ^ (-5)
Text2 = x1
End Sub

以上为用迭代法求立方根的代码。
期待被采纳!

Option Explicit
Private Sub Command1_Click()
Dim a&, b!, c!
a = 3
b = a
Do
c = 2 * b / 3 + a / (3 * b * b)
If Math.Abs(b - c) < 0.00001 Then Exit Do
b = c
Loop
Text1.Text = a & "立方根为：" & c & vbCrLf & "利用运算符求得3的立方根为：" & a ^ (1 / 3)
a = 27
b = a
Do
c = 2 * b / 3 + a / (3 * b * b)
If Math.Abs(b - c) < 0.00001 Then Exit Do
b = c
Loop
Text2.Text = a & "立方根为：" & c & vbCrLf & "利用运算符求得3的立方根为：" & a ^ (1 / 3)
End Sub