Question

VB求100!的尾数有多少个零

Answer 1

Dim i As Long,Y As Long,Z As Long

Y = 1

For i = 2 To 100

Y = Right(Y,1) * i

While Right(Y,1) = "0"

Z = Z + 1

Y = Y / 10

Wend

Next

'Z即为结果