Código fuente del algoritmo Sprint

Fórmula Rem: Utilice π/4 = 1-1/3 1/5-1/7... para encontrar el valor aproximado de π.

Private subform_click()

Dim s es Doble, pi es Doble, I es Doble

s = 0

Para i = 1 a 100000', cuanto mayor sea el límite superior, mayor será la precisión de π.

s = s 1/(2 * I-1)*(-1)^(I 1)

Entonces

pi = 4 * s

Imprimir "π="; pi

Conector final