看不懂什么意思。


大致是：
a(n)=n(a(n-1)+1)
=n*(n+1）
？？？

Function a(ByVal n As Long)
If n = 0 Then Exit Function
a = n * (a(n - 1) + 1)
End Function

Sub test()
Debug.Print a(10)
Debug.Print a(104)
End Sub

9864100
 2.79956300693248E+166

[此贴子已经被作者于2022-11-25 00:25编辑过]

非常感谢
a(1)=1,a(n)=n(a(n-1)+1)=Sum_{i=0..n-1} (n!/i!)=int(e*n! - 1)
感谢讲解！

猜测代码是递归算法。

[此贴子已经被作者于2022-11-25 09:32编辑过]