求编写程序计算“菲波那契数列”第n项的值。

dim lastnum1,lastnum2,str
dim n
n=10
lastnum1=0
lastnum2=1
str="1"
do while not i=n-1
str=str&","&(lastnum1+lastnum2)
lastnum2=lastnum1+lastnum2
lastnum1=lastnum2-lastnum1
i=i+1
loop
msgbox(str)

谈不上美观。。。但是能实现

int k=0;
scanf("%d",&k);
float value[1000];
value[0]=0;
value[1]=1;
for(int i=2;i<=k;i++)
{
value[i]=value[i-1]+value[i-2];
}
printf("%f",value[k]);

int f(int n)
{
if ((n = 0) || (n = 1))
{
n = 1;
}
else
{
return (f(n-1)+f(n-2));
}
return n;
}