编写一Sub过程,求斐波那契（Fibonacci）数列的前n项数据.单击命令按钮输入n值,调用该过程,在窗体中输出,每行输出5个数据.（Fibonacci数列第一项是1,第二项是1,以后各项都是前两项的和,即数列

编写一Sub过程,求斐波那契（Fibonacci）数列的前n项数据.单击命令按钮输入n值,调用该过程,在窗体中输出,每行输出5个数据.（Fibonacci数列第一项是1,第二项是1,以后各项都是前两项的和,即数列
编写一Sub过程,求斐波那契（Fibonacci）数列的前n项数据.
单击命令按钮输入n值,调用该过程,在窗体中输出,每行输出5个数据.（Fibonacci数列第一项是1,第二项是1,以后各项都是前两项的和,即数列值为：1、1、2、3、5、8、13……）
提示：用数组作为过程参数

编写一Sub过程,求斐波那契（Fibonacci）数列的前n项数据.单击命令按钮输入n值,调用该过程,在窗体中输出,每行输出5个数据.（Fibonacci数列第一项是1,第二项是1,以后各项都是前两项的和,即数列
dim a() as long,n as integer
n=inputbox("请输入n的值：")
redim a(1 to n)
call Fibonacci a()
sub Fibonacci(a() as long)
dim i as integer,n as integer
n=ubound(a)
a(1)=1
a(2)=1
for i=3 to n
a(i)=a(i-1)+a(i-2)
next i
end sub