VB数列求π的公式当N等于100时π的值

PrivateSubForm_Click()DimnAsIntegern=Val(InputBox("请输入N:"))Dima,bAsLonga=1:b=1Fori=1TonPrinta&""&b&"

PrivateSubCommand1_Click()s=1n=1DoWhiles再问：最后的答案是啥呢大哥n值和s值。。我完全不懂得老师布置的作业再答：6和720再问：大哥看清楚题目确定没错吧错了我要

PrivateSubCommand1_Click()DimmAsLong,nAsIntegerm=Val(InputBox("请输入一个数"))Forn=1TomIf2^n>=mThenMsgBox"

非递归：staticvoidf(intn){longp1=1,p2=1,p=1;for(inti=1;i

Sn-S(n-1)-2^n=S(n-1)Sn/2^n-S(n-1)/2^(n-1)=1S1=1soSn/2^n=nSn=n*2^nan=Sn-S(n-1)=n*2^n-(n-1)2^(n-1)an/2

（1）∵Sn=n^2-21*n/2的对称轴为直线x=-b/2a=-(-21/2)/2*1=21/4二次项系数a=1＞0,n∈N*与21/4最近的正整数为5S5=5^2-21*5/2=-55/2∴当n=

把an用sn-s（n-1）替代计算

an=sn-ssn=1/2(n+4)ana1=s1=1/2(n+4)an-1/2(n+3)aan=1/2nan+2an-1/2na-3/2a0=1/2(an-a)+an-3/2a-1/2(an-a)+

n>=2an-a(n-1)=-4na(n-1)-a(n-2)=-4(n-1)……a2-a1=-4×2相加an-a1=-4[2+3+……+n]=-4(n+2)(n-1)/2an=-2n²-2n

an/2^n=(2an-1)/2^n+1=(an-1)/2^(n-1)+1an/2^n-(an-1)/2^(n-1)=1则{an/2^n}是公差为1的等差数列.设Tn=an/2^n则Tn是公差为1的等

如果An最大,那么An=>A(n-1),An=>A(n+1).把n代到通项公式解出来是:n=>11,n

楼上的程序会慢死人的.给一个非递归实现.functionFibonacci(byvalnasLong)asLongdiml1aslong,l2aslong,l3aslongl1=1l2=1ifn

∵a1*a2*a3*……*an=n^2∴当n≥2时,a1*a2*a3*……*a（n-1）=（n-1）^2∴an=[n/(n-1)]^2

Sn=a*n^2+b*n+c,——》S(n-1)=a*(n-1)^2+b*(n-1)+c,——》an=Sn-S(n-1)=(a*n^2+b*n+c)-[a*(n-1)^2+b*(n-1)+c]=(2n

由通项公式：an+1=3[a(n-1)+1]设bn=an+1那么bn=3b(n-1),b1=a1+1=2那么bn的通项公式是：bn=2×3^(n-1)∴an+1=2×3^(n-1)∴an=2×3^(n

Tn=2+2*4+3*8+4*16+.+(n-1)*(2的n-1次方)+n*（2的n次方）2*Tn=4+2*8+3*16+.+（n-1）*（2的n次方）+n*（2的n+1次方）用二式减一式得Tn=n*

据题意：5+(n-1)*d=5*(n-1)+(1+2+···n-2)*d5+(n-1)*d=5n-5+{[(n-2)(n-1)]/2}*d5+n*d-d=5n-5+[(n^2)/2]*d-(3n/2)

an+1-an=2nan-an-1=2(n-1)an-1-an-2=2(n-2).a2-a1=2*1相加,得an-a1=2*(1+2+3+...+n-1)=2*(1+n-1)/2*(n-1)=n*(n