编写一Sub过程,求斐波那契（Fibonacci）数列的前n项数据.

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 su