VB 用过程求组合数.rar

VB用过程求组合数，输入m和n，按等号键可得组合数，来看如下的简单代码： 　　PrivateSubf(mAsInteger,pAsLong)'自定义通用过程，用于求阶乘 　　DimiAsInteger'声明局部变量 　　p=1'赋初值 　　Fori=1Tom'求m的阶乘 　　p=p*i'结果返给参数p 　　Nexti 　　EndSub 　　 　　PrivateSubCommand1_Click()'求组合数 　　DimmAsInteger,nAsInteger 　　DimcAsLong,f1