UC知道VB 阶乘倒数的求法
来源：百度知道 编辑：UC知道 时间：2024/05/23 23:13:32
想求一个1/1!+1/2!+....+1/n!的和
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
Next j
S = S + 1 / M
Print S
End Sub
我这么编为什么不对 S = S + 1 / M 这个出现了问题
该怎么改才可以呢？ 请教
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
Next j
S = S + 1 / M
Print S
End Sub
我这么编为什么不对 S = S + 1 / M 这个出现了问题
该怎么改才可以呢？ 请教
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‘这里还有两个问题：1、long的话不能有小数了，应该是single比较好，2、定义的话不能只写一个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
Next j'和下面这个换一下位置
S = S + 1 / M
Print S
End Sub
变成+
Private Sub Command1_Click()
Dim N As Single, M As Single, S As Single
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
"定义的话不能只写一个as long ,而是每一个都要写"-----这是误导
Private