Question

用VB编程求pi=4(1–1/3+1/5–1/7+1/9–1……)

用VB编程求pi=4(1–1/3+1/5–1/7+1/9–1……)

Answer 1

Private Sub Form_Click()
Dim i As Long, f As Integer, pi As Single
i = 1
f = 1
Do
 pi = pi + (1 / i) * f
 f = -f
 i = i + 2
Loop While 1 / i > 0.00001

MsgBox 4 * pi

End Sub

Answer 2

LET s=0
LET e=0.00001
LET i=0
LET sign=-1
DO WHILE 1.0/(2*i+1)>=e
   LET sign=-sign
   LET s=s+sign*1.0/(2*i+1)
   LET i=i+1
LOOP 
LET s=s*4
PRINT s
END