VF程序设计的题目，高手进

*希望对你有帮助
*1
CLEAR
LOCAL nsum
nsum=0
DIMENSION num(15)
num(1)=1
num(2)=1
?"求数列1，1，2，3，5，8，13，21...前十五项之和。"
?
?"结果如下："
?"数列的前15项为：",ALLTRIM(STR(num(1)))," ",ALLTRIM(STR(num(2)))," "
FOR i=3 TO 15
num(i)=num(i-1)+num(i-2)
??ALLTRIM(STR(num(i)))," "
ENDFOR
FOR i=1 TO 15
nsum=nsum+num(i)
ENDFOR
?"以上数列的和为：",ALLTRIM(STR(nsum))

*2
CLEAR
?"编程计算S=1+（1+2）+(1+2+3)+……+（1+2+3...+N），N从键盘输入。"
?
input "请输入一个数值N：" to n
LOCAL csum,a
csum=0
a=0
FOR i=1 TO n
a=a+i
csum=csum+a
ENDFOR
??"计算结果为：",csum

1、
clear
x=1
y=1
s=0
?"前15项有："
??alltrim(str(x))+space(3)+alltrim(str(y))+space(3)
for i=3 to 15
z=x+y
x=y
y=z
??alltrim(str(z))+space(3)
s=s+z
endfor