visual foxpro菜鸟编程问题

第一个问题 计算T=1!+2!+…+10！
set talk off
T=0
for i=1 to 10
? ss(i)
T = T + ss(i)
endf
? T
retu

第二个问题 有一个数列，前两个数是1,1，第三个数是前两个数之和，以后每个数都是其前两个数之和。要求输出此数列的第30个数。
set talk off
a = 1
b = 1
for i=3 to 30
c = a + b
a = b
b = c
endf
? c
retu

function ss(x)
y=1
for j=1 to x
y=y*j
endf
retu y

第三个问题 如何用VF语言解释大小写函数LOWER和UPPER
LOWER()函数，将字符表达式中所有的大写字母（A-Z）转换为小写字母（a-z）。字符表达式中的其他字符保持不变。
UPPER()函数，将字符表达式中所有的小写字母（a-z）转换为大写字母（A-Z）。字符表达式中的其他字符保持不变。

1、第一个问题 计算T=1!+2!+…+10！
i=1
a=1
t=0
for i=1 to 10
a=a*i
t=t+a
endfor

? "T的结果是：",t

2、第二个问题 有一个数列，前两个数是1,1，第三个数是前两个数之和，以后每个数都是其前两个数之和。要求输出此数列的第30个数。

a=1
b=1
c=0
for i=1 to 28 &&循环到28次时就求出第30位的数字了
c=a+b
a=b
b=c
endfor
? "第30位的数字是：",b

3、第三个问题