有一分数数列,求前二十项和vb

你先i+=k;然后K=i;这是不行的,这样i/k始终会等于1.同时这样也会导致i-k=0恒成立,这样会导致无限循环的!然后是判断条件的问题,你可以另设一个变量,用来计算相加次数的!

n=1/(n2+3n+2)=1/((n+1)(n+2))S10=1/(2*3)+1/(3*4).+1/(11*12)=1/2-1/3+1/3-.+1/11-1/12=1/2-1/12=5/12

斐波那契数列第100项为354224848179261915075前100项和为927372692193078999175计算结果如下：.098.135301852344706746049S098=3

由规律得,an=(n-1)+(2^n-1)/2^n=n-(1/2)^n故S10=10*(1+10)/2-1/2*(1-(1/2)^10)/(1-1/2)=55-(1-1/1024)=54+1/1024

#include"stdio.h"voidmain(){inti;floatm,n,a,s,t;m=1;n=2;a=0;for(i=1;i再问：。。。问题打错了不好意思。是有一分数数列，2/1,3/2

S10-S5=a6+a7+a8+a9+a10=-1005a8=-100a8=-20S5=a1+a2+a3+a4+a5=5a3=0a3=0d=(a8-a3)/5=-4a1=a3-2d=8S20=20a1

an=0.6+0.06+……+6*10^(-n)=0.6*(1-0.1^n)/(1-0.1)=2/3-2/3*0.1^n所以Sn=2/3*n-2/3*(0.1+0.01+……+0.1^n)=2/3*n

floatf(intj){if(j==1)return1;if(j==2)return2;if(j>2)return(f(j-1)+f(j-2));}voidmain(){floati;intj,k=

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

PrivateSubCommand1_Click()DimS_numAsLongS_num=Val(Text1.Text)Text2.Text=""Text3.Text=""IfS_num>0Then

Private Sub Form_Load()Dim A(1 To 10) As DoubleA(1) = 1

PrivateFunctionbq(ByValsAsLong)AsLongSelectCasesCase1bq=1Case2bq=1CaseIs>=3bq=bq(s-1)+bq(s-2)EndSele

an=3a(n-1)+2an+1=3(a(n-1)+1)令an+1=bn,则：bn=3b(n-1)即bn是等比数列,q=3所以bn=b1*3^(n-1)b1=a1+1=2bn=2*3^(n-1)an=

再问：好样的！！太棒了

chengqy029 回答有误,解答过程见图：

a3=-13(a1+a9)*9/2=-45a1+a9=-10所以a1+2d=-13,2a1+8d=-10所以a1+2d=-13,a1+4d=-5解得d=4a1=-21an=-21+4(n-1)=4n-

公差为2,首项为1,S10为100

由题意可得通项为an=n/2^n（这是一个等比和等差相结合得问题,有通法）sn=1/2+2/4+3/8+...+n/2^n则1/2*sn=1/4+2/8+...+（n-1）/2^n+n/2^（n+1）

递归法和循环法分别如下：PrivateFunctionFibonacci1(nAsInteger)AsLongDimaAsInteger,bAsIntegerIfn=1Orn=2ThenFibonac

分组求和（1+2+3+……+10）+（1/2+1/4+……1/1024）=55+1-1/1024=55295/1024