Private?Sub?Command1_Click()
MsgBox?ZuHe(3,?7)
End?Sub
Function?ZuHe(m,?n)
ZuHe?=?(JieCheng(n))?/?(JieCheng(m)?*?(JieCheng(n?-?m)))?’根據排列組合公式計算該組合
End?Function
Function?JieCheng(p)?‘計算p的階乘
JieCheng?=?1
For?i?=?1?To?p
JieCheng?=?JieCheng?*?i
Next
End?Function?