vfp计算1 (1 3) (1 3 5)-搜答案-神马作文网

clear&&清屏t=o&&给t赋初值s=1&&赋初值给sfori=1to10&&循环s=s*i&&s=i!t=s+t&&t为1到i的阶乘和endfor&&循环终点"T=1!+2!+3!+…+10!=

clears=0fori=1to9step2s=s+jc(i)endfor"1!+3!+5!+7!+9!="+alltrim(str(s))functionjc(x)p=1forj=1toxp=p*j

假设n0是度为0的结点总数（即叶子结点数）,n1是度为1的结点总数,n2是度为2的结点总数,由二叉树的性质可知：n0＝n2＋1,则n=n0＋n1＋n2（其中n为完全二叉树的结点总数）,由上述公式把n2

i=0s=0DOWHILEi

sumi=0fori=1to9dosumi=sumi+i*(i+1)nextsumi以上这段保存为.prg的文件

VFP 计算S=1+2+3...+N

cleainput"输入大于1的整数"tons=0fori=1tons=s+iendfor?"s=",s

100的阶乘,这个需要编写一个程序.不过算出来数字太大了,怎么会有这种题?clears=1fori=1to100s=s*iendfor?"100!=",s

加入将TEXT1文本框中的值输出到TEXT2文本框,代码为：THISFORM.TEXT2.VALUE=THISFORM.TEXT1.VALUE

clears=0fori=1to500s=s+iendfor"1+2+3+4+.500=",sS=1fori=(1)to500S=s+(-1)^i*i(endfor)usenewtable6appen

settalkoffclearaccept"n="tonifn

我写了一个,不知道是不是你要求的样子：

1、clears=1fori=1to9s=s+i/(i+1)endfor2、clears=0fori=10to100ifmod(i,2)=0s=s+iendifendfo

s=0fori=1to100ifi%3=0s=s+iendifendfo

你的意思是表中有数学、物理、化学、总分字段,如何计算总分吧?如果是这样的话,可以这样写：use表名replaceall总分with数学+物理+化学use即可.

p=1s=0fori=1to10p=p*is=s+pendfo

clears=0fori=2to100step2s=s+1/iendfor"s=",sreturn

CLEARSETTALKOffs1=0forn=1to10s1=s1+jc(n)next"1!+2!+3!+.+10!=",s1FUNCTIONjcPARAMETERSis=1FORj=1TOis=s

s=0fori=1to10m=jc(i)s=s+1/mendfor?"值为",sfuncjcparanumt=1forn=1tonumt=t*nendforreturntendfunc再问：为什么要是

clears=0fori=1to100s=s+iendfor"1+2+3+4+5+6+......+100=",s

clears=0t=1input"请输入n的值："tonfori=1tont=t*is=s+tendfor"1!+2!+3!+.N!=",s