wxsh.net
当前位置:首页>>关于哪个高手可以用VFP里的知识编写1的阶乘加2的阶乘一...的资料>>

哪个高手可以用VFP里的知识编写1的阶乘加2的阶乘一...

Private Sub Command1_Click() a = 1 '初始化a的值 For i = 1 To 10 '循环十次,i每次都会+1 a = a * i '用1分别乘1到10的10个数 Next '继续循环 Print a '输出结果 End Sub

例如求N! input "N=" to n t=1 for a=1 to n t=t*a endfor ?"N!=",t return

1!/2!=1/2 2!/3!=1/3 1!/2!+2!/3!+....=1/2+1/3+...+1/21 s=0 for i=2 to 21 s=s+1/i next i ?"s=",s

int VPF(int n) { for (n,n>0,n--) n=n*(n-1); } 我不知道负数的阶乘是啥,乘到0的话,你加个if判断就行了。

答案就系阿拉伯数字自己串就系噶拉

clear s=jc(8)+jc(9)+jc(10) ?'8的阶乘加上9的阶乘加上10得阶乘为',s procedure jc lparameter n1 n2=1 for i=1 to n1 n2=n2*i endfor return n2 endproc

for 循环本身就包含了i 的自增,不需要再人工设置i=i+1 而且你写的公式也不符合阶乘的算法,只是在前几个数上碰巧一致 你的疑问是什么?有问题的两点都指明 了啊

n=val(thisform.text1.value) s=1 for i=1 to n s=s*i next thisform.text2.value=s

回答你的问题: ** 计算阶乘和 ** 求1至20的阶乘的和 CLEAR s=0 i=1 j=1 DO WHILE i

p=1 s=0 for i = 1 to 5 p=p*i s=s+p endfor ?s

网站首页 | 网站地图
All rights reserved Powered by www.wxsh.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com