Private Sub Command1_Click()
Dim n As Integer, i As Integer, bb As String
n = InputBox("请输入n")
bb = 1
For i = 1 To n
bb = bb * i
Next
Print bb
For i = 1 To 9
bb = Replace(bb, CStr(i), "")
Next i
Print "共有" & Len(bb) & "个0"
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024