*VFP:有一个数列,前两个数是1、1,以后每个数都是其前两个数之和,请编写程序,输出此数列的前30个数
SET TALK OFF
CLEAR
n=30
DIMENSION sl[n]
STORE 1 TO sl[1],sl[2]
sl[1],sl[2]
FOR i=3 TO 30
\x05sl[i]=sl[i-2]+sl[i-1]
\x05?sl[i]
ENDFOR
SET TALK ON
*也可以不用数组