怎样用VBS算圆周

你是说算圆周率吗？下面是从从C语言转移过来的，不过速度太慢，我这里运行了8分钟还没结束，我就直接结束它啦，你自己试试吧

dim a,b,c,d,e,f(2801),g
a=10000
c=2800

do while (b-c)
f(b=b+1)=a/5
loop

do while d=0 and g=c*2
b=c
d=d+f(b)*a
g=g-1
f(b)=d mod g
d=d/g
g=g-1

do while b=b-1
d=d*b
d=d+f(b)*a
g=g-1
f(b)=d mod g
d=d/g
g=g-1
loop

c=c-14
msgbox e+d/a
e=d mod a
loop