一个函数是：P(n)=n!×(∑F(k)×F(n-k))，其中F（1）＝1。
另一个函数是：P(n)= ∑C(k,n)×P(k)×P(n-k)，其中P(1)=1,C(k,n)＝k!/[n!*(n-k)!]。

拜托各位大侠了，谢谢！

Public Function 阶乘(cs As Long) As Double
'N!
cs = Int(cs)
If cs = 1 Then
    阶乘 = 1
Else
    阶乘 = cs * 阶乘(cs - 1)
End If

End Function
---------------------------------
F(K) ,此函数不知道是什么内容
--------------------------------
Public Function F累加(cs As Long) As Double
'∑F(1-k)
Dim i As Long
For i = 1 To cs
    F累加 = F累加 + f(i)
Next i
End Function
---------------------------------

c(k,n)
= 阶乘(k)/( 阶乘(n) * 阶乘(n-k) )

给的东西太小,除下 阶乘 函数外,不知道是不是你所要的意思.

F(n)=∑F(k)×F(n-k),为一递规函数，n,k为自１开始的自然数．
求助一完整的程序，放在  vb6上，输入一个n值，就能用的．
谢谢！