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

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

S=0 FOR i = 1 to 10 S=S+jc(i) ENDFOR ?S PROCEDURE jc PARAMETERS j ss=1 FOR K = 1 to j ss=ss * k ENDFOR RetURN ss ENDPRO

SET TALK OFF CLEAR input "input n:" to n STORE 1 TO t FOR K=1 TO n t=t*k ENDFOR ?t SET TALK OFF

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

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

内层循环中"m=1 TO n"的意思是m从1累加至n,其中此时的n是此时外层循环中n的值 内层循环是算t的值:1*2*3...*n即为n的阶乘 外层循环是算n为1至20的t的总和 流程是这样的: 一开始,n=1,t=1然后加入内层循环,t=t*m=1,此时m等于n,跳出内层循环...

clear s=0 for i=1 to 9 step 2 s=s+jc(i) endfor ?"1!+3!+5!+7!+9!="+alltrim(str(s)) function jc(x) p=1 for j=1 to x p=p*j endfor return p endfunc

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

仅从你提供的代码看: 如果表“26”是存在的,且“26”表中有名为“阶乘和”的字段,“26”表至少有一条记录,则你的代码就没什么问题(当然,thisform.text1的 value值的类型要和“阶乘和”字段的数据类型相同)。 数据库的数据存储是自动进行的,当然你...

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