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
[此贴子已经被作者于2022-11-25 00:25编辑过]
[此贴子已经被作者于2022-11-25 09:32编辑过]