在vfp中用组合实现杨辉三角

#杨辉三角
input “请输入行数” to a
for i=0 to a
?
for j=0 to i
??allt(str(sum(1,i)))+space(2)
endfor
endfor

function sum
parameter x,y
store 1 to b,c
for n=1 to x
b=b*n
c=c*y
y=y-1
endfor
return c/b

觉得不错的话留个赞呗´･ᴗ･`