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