vb求pi问题

请问这段代码哪里出错了呢？当我输入500时，就是求不到pi，正确的pi应该是3.14几啊。

Private Sub Form_Click()

Dim pi As Double

Dim t As Double

Dim n As Long

Dim f As Integer

n = InputBox("请输入N的值:")

pi = 0: t = 1: f = 1

For i = 1 To n

t = 1 / (2 * i - 1) '第1空

pi = pi + t * f '第2空

f = -f '第3空 这里用-f来控制就对了

Next i

Print "PI="; 4 * pi '第4空

End Sub

格里高利公式是这个样子的：


你用f = -1 ^ (i-1)有2个错误
第一：i-1当i=1时=0，任意数的0次方=1，而下次f应该是-1才对，所以你弄反了！
第二：-1 ^ (i-1)，由于^的优先级别比-高，所以你以后每次得到的f都是-1，根本没有-1！
综合这两点，如果要在你的代码基础上修改的话，那一句应该改成这样：
f = (-1) ^ i
不过我认为还是没有f = -f来的简单和高效！

你这似乎不是求PI的公式啊

能不能发代码，别发图片呀？