Algoritmo de emergencia para π, vb o vbs

Fórmula Rem: Utilice π/4=1-1/3+1/5-1/7+... para aproximar π. Valor aproximado de π

Private Sub Form_click()

Dim s As Double, pi As Double, i As Double

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)

pi = 4 * s

Imprimir "π="；pi

Fin Sub