VB作业1到10的阶乘?-搜答案-搜搜做题作业网

从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;//实现

vb求n的阶乘n

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