类型定义过小 修改即可
Private Sub Form_Click()
Dim t As Double, n As Double, i As Double, y As Double
Sum = 0
n = InputBox("请输入一个大于一的整数")
y = Val(n)
t = 1
If n <> 0 Then
For i = 1 To n
t = t * i
Sum = Sum + n / t
n = n * y
Next i
Else
n = 0
Sum = 1
End If
Print Round(Val(Sum + 1), 4)
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024