如何解决这个程序的溢出问题

编程序计算:1-1/3!+1/5!-1/7!+...(-1)^n-1(1/2n-1)
程序代码如下:
dim i as integer,f as integer,s as single,t as single
i=0
s=0
t=1
f=1
do while t>0.000001
s=s+f/t
i=i+1
t=t*(2*i)*(2*i+1)
f=-f
loop
print "计算了";i;"项,其结果是";
end

t=t*(2*i)*(2*i+1)
这里超出的范围，发生溢出。

不记录 t 为 n!,而记录为 1/n!
每次循环，t/=i , t/= i+1, 然后 i+=2;
你自己写下吧，我vb不怎么样，C还可以