bico.txt

常用的数值算法的VB程序

Function BICO(N, K)
    BICO = Int(Exp(FACTLN(N) - FACTLN(K) - FACTLN(N - K)))
End Function