Aproximación VB de π (esperando en línea ~ urgente)

Función zdypi#(n)

Dim i%, a#

zdypi = 2#

Para i = 1 To n

a = 2 * i

zdypi = zdypi * a * a / (a - 1#) / (a + 1#)

Siguiente i

Función final

Subcomando privado1_Click()

Texto1 = Formato(zdypi(10), "#.#####0")

Texto2 = Formato( zdypi(100), "#.#####0")

Texto3 = Formato(zdypi(1000), "#.#####0")

Fin del subtítulo