Question

vb求∏的近似值.直到最后一项绝对值小于0.0001为止.公式：∏/4≈1-1/3+1/5-1/7+.程序中问号怎么填

Answer 1

Dim s As Integer,n As integer

Dim t As single,pi As single

s = 1:t = 1:n = 1:pi = 0

Do While Abs(t) > 0.0001

pi = pi + t

n = n + 2

s = -s

t = s / n

Loop

Print pi * 4