VB作业1到10的阶乘?
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/30 00:21:33
从5的阶乘开始,他们的个位数都是0!(因为2*5=10)而1!+2!+3!+4!的个位数为1+2+6+4=13所以1的阶乘加2的阶乘加3的阶乘一直加到2008的阶乘的个位数是3明白了吗?给个辛苦分吧
从1的阶乘加到N的阶乘和求解如下,下述代码只包含函数体,并未定义主函数,希望自行修改intfun(intn)//n为条件中的N{intsum=0,m=1;;for(inti=1;i{m*=i;//实现
PrivateSubCommand1_Click()Dimi,j,kFori=1To10k=1Forj=1Toik=k*jNextPrinti&"!="&kNextEndSub再问:如果用inputb
把s=1放到DoWhilen再问:我试了下,正解!但是请问这是为什么啊?再答:因为每次做Do循环时,前一次的S没有还原,继承了上一次的值也就是第一次循环S=1第二次循环S=1*1*2第三次循环S=1*
a=0fori=1to10h=1forj=1toih=h*jnextja=a+hnexti'a就是结果
#include"stdio.h"voidmain(){longa=1,n,s=0;for(n=1;n
PrivateSubCommand1_Click()DimiAsIntegerFori=1To10Sum=Sum+jc(i)NextMsgBoxSumEndSubFunctionjc(aAsInteg
法一:这个方法的思路很直接,数学味较浓.既然在VB6中没有阶乘的运算,那么我就自己造一个函数用来算一个整数的阶乘.FunctionTimeStep(NumberAsInteger)AsLongTime
#include#includeintmain(){intn=10,i=1,ans=1;while(i
#include"stdio.h"voidmain(){intsum=0;intn=1,i;for(i=1;i
sum赋初值0,还有一些语法错误修改一下,如下#includeusingnamespacestd;intmain(){inti,j,sum;sum=0;//加这句for(i=1;i
p=1s=0fori=1to10p=p*is=s+pendfo
9.4269E+157
PrivateSubCommand1_Click()Dimi%DimsAsSingles=0Fori=1To10s=s+1/compu(i)NextiText1.Text=sEndSubFunctio
PrivateSubCommand1_Click()n=Val(InputBox("n="))t=1Fori=1Ton t=t*i s=s+tNextiPrin
同学,20!就已经很大了,你定义sum为int无法保存结果,而且,阶乘不是那样子写的.#include"stdio.h"doublejiecheng(intn){if(n==0||n==1)retur
没有封闭的通项公式.
longfact=1,sum=0;应该改为longdoublefact=1L,sum=0L;或者fact和sum改为double型;longdouble为常双精度型;你的结果有19位,long是不行的
1!,2!,一直到10!这个意思的吧?或者是1到10的连乘,就是10!
阶乘10等于3628800,阶乘10的阶乘表示3628800!的阶乘等于9.05199383547993*10^22228103