作业帮vb 1000!~10000!含有的末尾零个数初学
来源：学生作业帮助网 编辑：作业帮 时间：2024/07/18 21:06:52
xROOA*ϓ6Bbm Lc+[K* j<5ݠ"XM9`[M*ꗙ7,'B b7k$hN|:GWR6{UGհ2|$suV` +7Y,Crt^̙wSWJ=K8^ ky5Rg!M@ESZwGğ;dZwq牧
ˑ|He`5)T
VKE
&̀ŚWvz{.{7As-uc> Xf$ZΩ_NF7ʹ
o>ZL'.nD>LMKh LXHb0i556xRC,{+͉zR +mGb,-ag5|arpbM]E,x!nQ<_D?DFXNoQ`FTt ;
vb 1000!~10000!含有的末尾零个数初学
vb 1000!~10000!含有的末尾零个数
初学
vb 1000!~10000!含有的末尾零个数初学
求1000的阶乘末尾含有的零个数吗
换个思路,尾数为零是什么概念呢,2*5=10 有尾数,10自然也有尾数,其它的不行（4*5=20,但是4=2*2）
那么,十个数就有2个零,如果其它数呢,只要能配对,即2跟5配对,10再单独分开即可
如下：
Private Sub Command1_Click()
Dim a As Integer,b As Integer 'a十的个数,b2跟5配对的数
If Text1.Text Mod 10 >= 5 Then
b = (Text1.Text \ 10)+1
Else '单独只有2没有5也不能配对,所以要减1个配对
b = Text1.Text \ 10
End If
a = Text1.Text \ 10
MsgBox a + b
End Sub