当前位置 :
vb求斐波那契(Fibonaccii)数列前20项的和
更新时间: 2025-08-29 13:54:38
1人问答
问题描述:

vb求斐波那契(Fibonaccii)数列前20项的和

费耀平回答:
  PrivateFunctionbq(ByValsAsLong)AsLong   SelectCases   Case1   bq=1   Case2   bq=1   CaseIs>=3   bq=bq(s-1)+bq(s-2)   EndSelect   EndFunction   PrivateSubCommand1_Click()   summ=0   Fori=1To20   summ=summ+bq(i)   Nexti   Printsumm   EndSub
最新更新
保卡通(baokatong.com)汇总了汉语字典,新华字典,成语字典,组词,词语,在线查字典,中文字典,英汉字典,在线字典,康熙字典等等,是学生查询学习资料的好帮手,是老师教学的好助手。
声明:本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
Copyright©2009-2021 保卡通 baokatong.com 版权所有