[已解决]VBA编写自定义函数计算N阶乘 末尾0有多少个

laoau138

VBA编写自定义函数计算N阶乘  末尾0有多少个


计算一个自然数的阶乘n!  末尾0有多少个  其中参数为n

1!=1

2!=2

3!=6

注意0!=1

最佳答案

月排行榜 / 总排行榜

grf1973

2017-4-7 16:43

0的个数=可以分解成多少5的个数。

1. Sub 阶乘0的个数()
   
2.     n = 130
   
3.     For i = 5 To n Step 5
   
4.         个数 = 个数 + 1
   
5.         p = i / 5
   
6.         Do While p Mod 5 = 0
   
7.             个数 = 个数 + 1
   
8.             p = p / 5
   
9.         Loop
   
10.     Next
    
11.     MsgBox n & "的阶乘末尾0的个数有" & 个数 & "个。"
    
12. End Sub

复制代码

跳转到最佳答案楼层

raymanrrr

这个题算法不是难点……难的是数据类型，反正我想不起来vb系统定义的数据类型有可以显示很长一段数字的，python倒是可以，vb.net好像也有bigint这种类型，不过vb里……想不出来

要不然只能用数学的方法求解了

grf1973

数一下出现n内有几个5，几个10

香川群子

grf1973 发表于 2017-4-4 11:06
数一下出现n内有几个5，几个10

不是数出来，是算出来。演算推算得到结果。

香川群子

楼主有本事计算一下，n！阶乘的末尾第1个非0数字是什么？

例如：13！=6227020800
末尾第1个非0数字是8

那么 237！的末尾第1个非0数字是什么？

grf1973

0的个数=可以分解成多少5的个数。

1. Sub 阶乘0的个数()
   
2.     n = 130
   
3.     For i = 5 To n Step 5
   
4.         个数 = 个数 + 1
   
5.         p = i / 5
   
6.         Do While p Mod 5 = 0
   
7.             个数 = 个数 + 1
   
8.             p = p / 5
   
9.         Loop
   
10.     Next
    
11.     MsgBox n & "的阶乘末尾0的个数有" & 个数 & "个。"
    
12. End Sub

复制代码

grf1973

n！阶乘的末尾第1个非0数字是什么？只要计算一下9！，尾数是8，算一下多少个8相乘（每5次循环后又是8），然后乘以 （n mod 10）！最后一个非0数

香川群子

grf1973 发表于 2017-4-7 16:46
n！阶乘的末尾第1个非0数字是什么？只要计算一下9！，尾数是8，算一下多少个8相乘（每5次循环后又是8），然 ...

那你算出来237！的末尾倒数第1个非0数字是几？

香川群子

计算n！的末尾含0个数，可以用递归计算超级简单：

1. Function f(n)
   
2.     If n > 4 Then f = n \ 5 + f(n \ 5)
   
3. End Function

复制代码

其中【 \】为Int()整除运算。