求π: π/4=1-1/3+1/5-1/7+...+1/(4n-3)-1/(4n-1),n=10000 VB编程

Private Sub Command1_Click()
'这里调用求pi函数,
p = pi(10000)
'p即为所求``
End Sub

''下面是求pi的函数
Private Function pi(ByVal n As Long) As Double
For i = 1 To 2 * n - 1
pi = pi + 1 / (4 * i - 3) - 1 / (4 * i - 1)
Next i
pi = 4 * pi
End Function

汗 书本不是有代码吗 运行结果π=3.141499 Function pai(n As Single)
Dim i, t, e
e = 1
'π/4=1-1/3+1/5-1/7+...+1/(4n-3)-1/(4n-1),n=10000 VB编程...
For i = 1 To n
t = 1 / (2*i-1)
pai = pai + t * e
e = e * (-1)
Next i

Text1 = "π=" & 4 * pai
End Function

Private Sub Form_Load()
pai (10000)
End Sub