VB 解释下阶乘倒数的程序

来源：百度知道 编辑：UC知道 时间：2024/06/12 11:40:28
Private Sub Command1_Click()
Dim N, M, S As Long
N = InputBox("Please input N:")
S = 0
For j = 1 To N
M = 1
For i = 1 To j
M = M * i
Next i
S = S + 1 / M

Print S
End Sub
帮我解释下这个代码， 尤其是Next j 这个在这里起的作用， 谢谢了！
Private Sub Command1_Click()
Dim N, M, S As Long
N = InputBox("Please input N:")
S = 0
For j = 1 To N
M = 1
For i = 1 To j
M = M * i
Next i
S = S + 1 / M
Next j
Print S
End Sub

这是一个双层循环~
Private Sub Command1_Click()
Dim N, M, S As Long '定义变量
N = InputBox("Please input N:") '弹出对话框，让你给N赋值 如N=3
S = 0 's初值为0
For j = 1 To N 'j是一个循环变量 j取1到3
M = 1 'm初值为1
（当j=1时） For i = 1 To j 'i也是循环变量 i=1
M = M * i 'm=1*1=1
Next i '重复
（当j=2时） For i = 1 To j 'i也是循环变量 i=1 to 2
M = M * i 'm=1*1=1
Next i '重复
For i = 1 To j 'i也是循环变量 i=2
M = M * i 'm=1*2=2
Next i '重复
（当j=3时） For i = 1 To j 'i也是循环变量 i=1 to 3
M = M * i 'm=1*1=1
Next i '重复
For i = 1 To j 'i也是循环变量 i=2
M = M * i 'm=1*2=2
Next i