當前位置:成語大全網 - 新華字典 - VB 排列組合問題

VB 排列組合問題

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?