Dimx()AsIntegerDimi，nAsIntegern=Val(InputBox(“请输入项数n：”))Redimx(n)x()=x()=Fori=x(i)=x(i–)+x(i–)Next