Do you know how many combinations to select n numbers from 1 to m with sum of which is mysum?

Do you know how many combinations to select  n  numbers from  1 to m with sum of which is sum?

Sub getit()
Dim m&, n&, mysum&, i&, j&, k&, count()
m = 100: n = 30: mysum = 700
ReDim count(m, n, -mysum To mysum)
For i = 1 To m
If i <= n Then count(i, i, i * (i + 1) / 2) = 1
For k = 1 To mysum
If k <= i Then count(i, 1, k) = 1
If i > 1 Then
For j = 2 To n
count(i, j, k) = count(i - 1, j, k) + count(i - 1, j - 1, k - i)
Next
End If
Next
Next
Debug.Print "There are " & count(m, n, mysum) & " combinations to select " & n & " numbers from  1 to " & m & " with sum of which is " & mysum
End Sub

It returns:

There are 21690729953398 combinations to select 30 numbers from  1 to 100 with sum of which is 700

发布了204 篇原创文章 · 获赞 7 · 访问量 74万+
展开阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 大白 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览