用Vb求数列前n项之和

vb具体语法不会啊.大致用pascal写一下把a=1;b=1;whilei再问：你这里么用wend哇！我先试试看你能不能做出来！再答：pascal里的循环语句和vb不一样，没有wend。。。我用vb写

添加一个文本框输入前N项的N值,再添加一个命令按钮即可PrivateFunctionF(NAsLong)AsLongIfN>2ThenF=F(N-1)+F(N-2)ElseF=1EndIfEndFun

哇,乘公比错位相减：（费劲）

PrivateSubCommand1_Click()DimnAsInteger,阶乘项AsLong,阶乘和AsLongDon=Val(InputBox("请输入阶乘的项数（N≤8）"))LoopUnt

因为an=（5/9）×((10^n)-1))所以sn=（5/9）×((10^1)-1))+（5/9）×((10^2-1))+…………+（5/9）×((10^n)-1))=（5/9）×[(10^1+10

an=(5/9)(10^n-1)接下来等比数列求和an=(5/9)10^n-(5/9)bn=an+(5/9)=(5/9)10^nSbn=(50*10^n-50)/81=San+(5/9)nSan=(5

Private Sub Command1_Click()Dim a As Long, b As Long, c

functionsum(nasinteger)dima(30)asintegerdimsasintegers=0a(1)=0a(2)=0a(3)=1fori=4to30a(i)=a(i-1)+a(i-

DimnAsIntegerDimmAsIntegerDimiAsIntegerDimjAsIntegerDima(30)AsInteger'确定数组的范围（）里的数即为最大可储存数+1PrivateS

Dima1,a2,a3,a4,iAsIntegera1=3:a2=4:a3=5fori=4to26a4=a1+a2+a3a1=a2a2=a3a3=a4next输出a4即可

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

#includeintmain(){inti=0;floatsum=0;intn;intx[n],y[n];printf("请输出计算的项数:");scanf("%d",&n);x[0]=2;x[1]

Sn=(103n-3n^2)/2S1=a1=50Sn-1=[103(n-1)-3(n-1)^2]/2Sn-Sn-1=an=53-3na1a2……a17都是正数,后面的是负数设Tn=｜an｜的n项之和n

解题思路：数列前n项和解题过程：varSWOC={};SWOC.tip=false;try{SWOCX2.OpenFile("http://dayi.prcedu.com/include/readq.

Private Sub Form_Load()Dim I As IntegerForm1.AutoRedraw = TrueFor

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

PrivateSubCommand1_Click()Dimi,nAsIntegerDima()AsIntegern=Val(InputBox("序列的个数","",4))IfnReDima(1Ton)

An=4n-1所以a1=3a10=40-1=39所以s10=(a1+a10)×10÷2=（3+39）×5=42×5=210

错位相减法,Sn=(-1)^n*(3n/2-1/4)-1/4