vb 1000!~10000!含有的末尾零个数初学

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/12 20:07:27

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