¡Utilice VB para escribir código de programa para el algoritmo gregoriano de pi! ¡¡¡urgente!!!
'4*(1-1/3 1/5-1/7 1/9-1/13 1/15-1/17 ... 1/(2n-1)-1/(2n 1)),
Atenuar a como doble
Atenuar s como doble
Atenuar n como entero
a = -1
n = -1
Hacer
a = a 2
n = -n
s = s n/a
Bucle hasta gt; 10 ^ 6
MsgBox s * 4