用vb解：输入一个自然数n,求 ,同时统计结果中有多少个0.

Answer 1

求啥？？？你好像没打出来。。。

只要统计结果有多少个0。。我用个土方法把。。
dim MStr as string
MStr=cstr(Sum) 'Sum代表统计结果
dim ICount as integer,I as integer
I=instr(MStr,"0")
while I>0
ICount=ICount+1
I=instr(I,MStr,"0")
wend
msgbox "统计结果共有：" & ICount & "个0"

追问

求 n!

追答

Dim i As Integer, tot As Double
tot = 1
For i = 1 To n
tot = tot * i
Next i
MsgBox tot

追问

能讲解一下么

追答

for语句中，I会步进，即从1加1一直到N，而N!就是n*(n-1)*(n-2)*……*2*1。那么倒过来就是我们For语句中的运算了。

或者你也可以：For i=n to 1 step -1，之后一样

Answer 2

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

Answer 3

Answer 4

求？什么？

追问

用vb解：输入一个自然数n,求 n! ,同时统计结果中有多少个0.

追答

dim i as integer
dim n as integer
dim jc as single

n=inputbox("请输入n值：")
jc=1
for i=1 to n
jc=jc*i
next
如果只是统计结果中0的个数，用上面的方法就可以。

追问

也要求n!

追答

我这一段就是求N！的，如果统计0的个数，就用

随风V随梦
的那一段程序就好了。
N！就是计算1到N的连乘，这里用循环实现从1到N的连乘，得出积jc就是要求的N！。

Answer 5

输入n之后呢，求什么？