Question

VB编程：用迭代法求某数a的平方根。平方根的迭代公式如下：

VB编程：用迭代法求某数a的平方根。平方根的迭代公式如下：
xn+1=(xn+a/xn)/2; 设x0=a/2;
当迭代相邻两项差的绝对值小于10-5时，迭代结束。

Answer 1

Private Sub Command1_Click()
'VB编程:    用迭代法求某数a的平方根?平方根的迭代公式如下:
'xn+1=(xn+a/xn)/2; 设x0=a/2;
'当迭代相邻两项差的绝对值小于10-5时，迭代结束。
     Dim a As Double, Xn As Double, X As Double, Delt As Double
     a = Val(Text5.Text)
     Xn = a / 2
     Delt = 0.00001
     X = (Xn + a / Xn) / 2
     Do While Abs(X - Xn) > Delt
        Xn = X
        X = (Xn + a / Xn) / 2
     Loop
     Print X
End Sub