'排列
Private Function Pailie(N As Long, M As Long) As Double
Dim j1 As Double
j1 = N
For i = 1 To M - 1
j1 = j1 * (N - i)
Next i
Pailie = j1
End Function'组合
Private Function Zhuhe(XX As Long, YY As Long) As Double
Dim J2 As Double
J2 = Pailie(XX, YY) / Pailie(YY, YY)
Zhuhe = J2
End Function
Private Function Pailie(N As Long, M As Long) As Double
Dim j1 As Double
j1 = N
For i = 1 To M - 1
j1 = j1 * (N - i)
Next i
Pailie = j1
End Function'组合
Private Function Zhuhe(XX As Long, YY As Long) As Double
Dim J2 As Double
J2 = Pailie(XX, YY) / Pailie(YY, YY)
Zhuhe = J2
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货