Usa la programación vb para encontrar la raíz cuadrada de 2
Private Sub Command1_Click()
Dim a As Double
a = 2 'El número a elevar al cuadrado
X1 = a
Hacer
X2 = (X1 a / X1) / 2
Si Abs(X2 - X1) lt.0.000000001 Entonces
Salir Do
Else
X1 = X2
Finalizar si
Bucle
Imprimir X2
Fin Sub