Excel中计算阶乘n的VBA代码

在Excel中可以通过FACT函数来计算非负整数n的阶乘（n!)，而如果要通过VBA来计算阶乘，可以用下面的两个自定义函数：1.使用循环：Function Factorial_a(ByVal Num As Integer)If Num < 0 Then Factorial_a = "#NUM!"Else Factorial_a = 1 For i = 1 To Num Factorial_a = Factorial_a * i...

Sub 阶乘() Dim s As Long, n As Integer, i As Integer n = Val(Range("A1").Value) s = 1 For i = 1 To n s = s * i Next i Range("B1").Value = sEnd Sub

n=sheet1.range("A1").value

for i=1 to n p=p*i next i

Sub s() Dim n% n = InputBox("input n") For i = 1 To n m = i Do While m Mod 5 = 0 k = k + 1 m = m / 5 Loop Next MsgBox kEnd Sub

Sub 阶乘()For i = 1 To 5 n = Application.Fact(i) s = s + nNextMsgBox sEnd Sub

我用EXCEL的VBA程序计算2011!，结果 是5771位的数字，从右到左第一个不等于零的数是4。程序如下：Sub 宏1()Application.ScreenUpdating = False Application.DisplayAlerts = False m = 1 '从1起乘 n = 2011 'n阶乘 w = 722 '5771 / 8 '预算结果8位数需用单元格数 j = 2 '从第二行...

第一个 sub 求和()dim arr, i as integer,he as integerarr=[a3:b11]for i=1 to ubound(arr) if arr(i,1)="1001" or arr(i,1)="1003" then he=he+arr(i,2) end ifnext[b12]=heend sub第二个 Sub 阶乘()Dim i As Integer, a As Integer, jc As Integer a =...

n！ 的尾数0 就是 不断累加 n/5 直到 n=0为止 答案503

变量：在程序运行的过程中会变化，程序运行结束后自动消失。例如：下面这段代码是一个自定义函数，计算阶乘的。代码如下：Function jc(a As Integer)If a > 50 Then jc = 0 Exit FunctionEnd Ifjc = 1For I = 1 To a jc = jc * INext IEnd Function 这里的jc也可以理解成一个...