vb用递归法求Fibonacci数列的第20、200项
题目
vb用递归法求Fibonacci数列的第20、200项
Fibonacci数列前2项均为1,满足公式f(n)=f(n-1)+f(n-2),其中n>3
答案
dim f() as double
n=inputbox("in","NO.")
redim f(n) as double
f(1)=1
f(2)=1
for i=3 to n
f(i)=f(i-1)+f(i-2)
next
print f(n)
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 若3x=2x+7,则3x+多少=7;若4x=3x-3,则x=多少:若x/2=-2,则x=多少?
- 一个物体的温度降到绝对零度时,是不是不能再降了
- 这首曲写的是满目萧瑟的秋景,为什么要写小桥流水人家呢?
- 李后主说“问君能有几多愁,恰似一江春水向东流.”同样是写愁,李清照却把它搬上了船,她这样写道:-,-.
- 看拼音,根据句子写词语 bao fa 大规模的电脑病毒( ),引起了全国的重视.
- 用万能表怎样测出用电器的用电量?有公式最好!
- 帮我写一篇简单的英语对话
- 在三角形ABC中,角ABC所对的边分别为abc且b=1/2,c=m<1/2,B=π/3则角A为
- 每年你是怎么过春节的?请从自己参加或者看到的、听到的春节习俗中选择一个,
- 一台电视机的价钱是3200元,一台冰箱的价格是它的4分之3.一台冰箱多少元.