趣味数学题：n的阶乘n！=1*2*3*4*5*…*n，当n≥5时，其结果末尾必然包含多个0，求n！（5≤n≤32726）末尾包含0的个数。算法思路：n较大时，n_刷题宝

题干

趣味数学题：n的阶乘n！=1*2*3*4*5*…*n，当n≥5时，其结果末尾必然包含多个0，求n！（5≤n≤32 726）末尾包含0的个数。
算法思路：n较大时，n！的值将超出long类型范围，求出n！的结果再数0的个数不现实。那么末尾的0到底是从哪里来的？每一个因子5与任一偶数相乘就会产生一个0。所以末尾有多少0是由因子5的个数决定的，求出因子5的个数即是末尾0的个数。程序运行界面和代码如图所示。

（1）为使窗体加载时，窗体标题栏自动显示为“第14题程序”，则可以在___________过程（填写过程名）中添加代码：Form1. Caption="第14题程序"。
（2）实现上述算法的VB程序如下，请补充程序中画线处的代码。
Private Sub Command1_Click()
Dim n As Integer
n=Val(Textl. Text)
i=1
Do While①___________
s=s+n\5^i
i=i+1
Loop
List1. AddItem Str(n)+"!末尾包含0的个数:"+②_______
End sub
（3）根据上述算法，2018！末尾包含0的个数是个________个。

上一题下一题 0.99难度 None 更新时间:2020-03-30 11:11:22

答案(点此获取答案解析）

同类题1

有如下VB程序段：
s= Text1.Text
For i=1 To Len(s)
c= Mid(s，i，1)
If c>=“0”And c<=“9”Then

m=m+1

Else lf c>=“a”And c<=“z” Then

n=n+1

t=t+1

End If
Next i
Label1.Caption = Str(t)
在文本框Text1输入“as674ER29，86Gu”(不包括双引号)，执行程序后，标签Labell显示：（）

同类题2

某算法的部分流程图如图所示，执行这部分流程后，输出a,b的值分别是（）

同类题3

以下程序段运行时出现如图所示的错误提示:

For i=1 To 100
If Rnd>0.5 Then
n=n+1
Else
m=m+1
Next i
分析该程序段,该代码中缺少了( )

同类题4

编写一个VB程序，实现如下功能：在文本框text1中输入英文句子，单击“第1个最长单词”按钮，找到第1个最长单词并显示在文本框text2中。运行效果如图所示

为实现上述功能，请在画线处填入合适代码
Private Sub Command1_Click()
Dim s As String, m As String
Dim n As Integer, c As Integer, max As Integer, t As Integer
s = Text1.Text
n = Len(s)
c = 0
max = 0
For i =" 1" To n
m = ① ‘截取字符串中的每个字符
If m >= "a" And m <= "z" Or m >= "A" And m <= "Z" Then
c =" c" + 1
Else
If c > max Then
max = c
t=" i" - 1
End If
c = 0
End If
If i =" n" Then
If c > max Then
max = c
t = i
End If
End If
Next i
Text2.Text = Mid(s, ② , max)
End Sub
（1）程序中①处填入的代码是：
（2）程序中②处填入的代码是下列哪个选项（）

同类题5

某VB程序段如下：
s=0
For i=2 To 5
For j=i To 5
If j Mod i=0 Then
a(j)=a(j)+1
s=s+a(j)
End If
Next j
Next i
数组a的初值均为0，上面程序段执行后，最终变量s的值为（）

相关知识点