VB的F数列前20项和

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

PrivateFunctionGetNum(ByValiCountAsLong)DimiAsLongReDima(iCount)AsLonga(1)=1:a(2)=2:a(3)=3Fori=4ToiC

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

OptionExplicitFunctionf(nAsInteger)AsLongIfn=1Thenf=1ElseIfn=2Thenf=1Elsef=f(n-2)+f(n-1)EndIfEndFunc

Private Sub Form_Click()Dim T(10) As IntegerDim R(10) As Int

/>Private Sub Form_Click()'1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)'   

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

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

Dima(35)AsLongDimiAsInteger=0,jAsInteger=0Fori=0To35a(i)=Nothing'''''''''''''''''''''''''''初始化Nexta(

OptionExplicitDimf(40)AsLongPrivateSubCommand1_Click()DimiAsByteDimsAsLongf(1)=1f(2)=1s=2Print"No1:"

PrivateFunctionF(nAsLong)AsLongIfn>2ThenF=F(n-1)+F(n-2)ElseF=1EndIfEndFunctionPrivateSubCommand1_Cli

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

/>'第一题privatesubcommand1_click()dimf(1to20)asintegerf(1)=1f(2)=1printf(1);f(2);fori=3to20f(i)=f(i-1)

回答过了啊……Dimf1,f2,f3AsLongDimi,jAsIntegerf1=1f2=1j=3        &n

 Private Sub Command1_Click()Dim F(11), i As LongF(0) = 

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

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

1