vb程序设计题目例题

计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+…，当第i项的值小于十的负五次方时结束

封装成函数了，代码如下，如有帮助，请采纳一下，谢谢。

//计算第n个数的值
int Fun(int n)
{
	if(n ==1)
		return 1;
	else
		return Fun(n-1) + (n-1);
}
//求和
float Caculate()
{
	float S = 0.0;
	int n = 1;
	float ns = 1.0/Fun(n);
	while (ns >= 0.00001) //在ns小于10的负五次方时结束
	{
		S += ns;
		n++;
		ns = 1.0/Fun(n);
	}
	return S;
}