编程计算1×2×3×4×…×n的乘积末尾零的个数,n在程序运行时通过文本框输入。

来源:百度知道 编辑:UC知道 时间:2024/06/20 02:30:30
用VB写出的程序:
编程计算1×2×3×4×…×n的乘积末尾零的个数,n在程序运行时通过文本框输入。参考界面如下:

要求:(1) 编写计算按钮的单击事件过程代码,
(2) 上机设计并调试该程序,窗体文件命名为Test2-1.frm,工程文件命名为Test2-1.vbp。
提示: 1×2×3×4×…×n的乘积末尾零的个数等于乘积中因子5的数目。

容易。
Private Sub command1_click()
Dim n As Integer, s As Integer, i As Integer, m As Integer
n = InputBox("请输入N的值:")
For i = 1 To n
If i Mod 5 = 0 Then
m = i
Do While m Mod 5 = 0
s = s + 1
m = m / 5
Loop
End If
Next i
Print s
End Sub