Private Sub Command1_Click() a = Val(InputBox("a=")) x = 0: y = a Do While Abs(y - x) >= 0.00001 x = y y = (x + a / x) / 2 Loop Print yEnd Sub
