朋友，你忘了文本框了吧，还有一个求和的
Private Sub Command2_Click()
Dim s As Long, k As Integer, a As Integer
a = Val(Text1.Text)
Print f(a)
End Sub
Function f(n) As Long
s = 1: Sum = 1
For k = 2 To n
s = s * k
Sum = Sum + s
Next
f = Sum
End Function
这样运行就OK啦
s=1,f=s
前面应该还有一个:这里的sum就是最后结果了。
sum=1
for i=2 to n
sum=sum+f(i)
next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024