vb求阶乘Cmn

PrivateSubCommand1_Click()DimnAsInteger,阶乘项AsLong,阶乘和AsLongDon=Val(InputBox("请输入阶乘的项数（N≤8）"))LoopUnt

1.阶乘函数：FunctionFactorial(nAsLong)AsLongIfn=1ThenFactorial=1ElseFactorial=n*Factorial(n-1)EndFunction

PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerDimcAsDoublem=Val(InputBox("m="))n=Val(InputBox("n

#includeintfac(intx){intret=1,i;for(i=1;i

PrivateSubCommand1_Click()n=InputBox("请输入阶数n：")s=f(n)Printn&"!="&sEndSubPrivateFunctionf(ByValnAsInt

PrivateSubCommand1_Click()DimnAsIntegern=InputBox("请输入一个正整数：")PrintFac(n)EndSubPrivateFunctionFac(m)

#includevoidmain(){inti,m,n,cmn,s=1,t=1,k=1;scanf("%d%d",&m,&n);for(i=1;i

PrivateSubCommand1_Click()Dimi,j,kFori=1To10k=1Forj=1Toik=k*jNextPrinti&"!="&kNextEndSub再问：如果用inputb

PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerm=Int(InputBox("输入第一个整数"))n=Int(InputBox("输入第一个整数"

把s=1放到DoWhilen再问：我试了下，正解！但是请问这是为什么啊？再答：因为每次做Do循环时，前一次的S没有还原，继承了上一次的值也就是第一次循环S=1第二次循环S=1*1*2第三次循环S=1*

阶乘没有公式,要一个一个的算,20以内的数的阶乘阶乘一般很难计算,因为积都很大.以下列出1至20的阶乘：1!=1,2!=2,3!=6,4!=24,5!=120,6!=720,7!=5040,8!=40

法一：这个方法的思路很直接,数学味较浓.既然在VB6中没有阶乘的运算,那么我就自己造一个函数用来算一个整数的阶乘.FunctionTimeStep(NumberAsInteger)AsLongTime

Fori=1Tony=y*nNexti这里的y=y*n当然不对,应该是y=y*i

一楼的很复杂,给你来个简单的：PrivateSubCommandButton1_Click()Dimi,s,kDimnaaa:n=InputBox("请输入大于等于1的数字")IfVal(n)>=1T

解题思路：同学你好，本题主要考查阶乘运算，利用公式可以前后相消得证解题过程：

首先“落叶|无情”的代码很好,但是我想题目中所说“用Sub过程和Function过程两种方法来实现”的意思,应该是用这两个独立实现求阶乘和,而不是在Sub中还要调用Function.当然,在Sub过程

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

OptionExplicitDimsAsIntegerPrivateSubCommand1_Click()Text2.Text=Str(fact(Val(Text1.Text)))s=0EndSubP

用Sub过程实现：PrivateSubCommand1_Click()DimtAsLongs=0fac01,ts=s+tfac02,ts=s+tfac03,ts=s+tPrint"s=1!+2!+3!