高考问答京东黄金:输出菲波拉契数列的前20项
来源：百度文库 编辑：高考问答 时间：2024/04/29 18:40:35
使用vb的do loop while语句
sub fib(byval n as integer)
if n=1 or n=2 then
fib=1
else
fib=fib(n-1)+ fib(n-2)
end if
end sub
sub form_load()
dim i as integer
do while i<=20
debug.print fib(i)
loop
end sub
dim lastnum1,lastnum2,str
lastnum1=0
lastnum2=1
str="1"
do while not i=19
str=str&","&(lastnum1+lastnum2)
lastnum2=lastnum1+lastnum2
lastnum1=lastnum2-lastnum1
i=i+1
loop
msgbox(str)