[已解决]求助大神，几个数字相加等于固定值

a505239616

附件里A列数字都可以，可以重复相加，相加总和等于B1，感谢

最佳答案

月排行榜 / 总排行榜

JX_shangrila

2016-2-24 19:20

获取100个累计和＝1350的代码
Public r%, p%, k%
Public Const cs As Integer = 100
Sub abc()
    Dim brr(1 To 65536, 1 To 1)
    j = 0: k = 0
    r = [a65536].End(xlUp).Row
    arr = Range("a1:a" & r)
    p = [b1]
    sl arr, brr, 1, 0, ""
    Range("c1:c" & k) = brr
End Sub
Function sl(arr, brr, i%, j%, t$)
    If k = cs Then Exit Function
    If j + arr(i, 1) = p Then
       k = k + 1
       brr(k, 1) = t & arr(i, 1) & "=" & p
    End If
    If i < r And j < p Then
        If j + arr(i, 1) < p Then sl arr, brr, i + 1, j + arr(i, 1), t & arr(i, 1) & "+"
        sl arr, brr, i + 1, j, t
    End If
End Function

跳转到最佳答案楼层

JX_shangrila

获取100个累计和＝1350的代码
Public r%, p%, k%
Public Const cs As Integer = 100
Sub abc()
    Dim brr(1 To 65536, 1 To 1)
    j = 0: k = 0
    r = [a65536].End(xlUp).Row
    arr = Range("a1:a" & r)
    p = [b1]
    sl arr, brr, 1, 0, ""
    Range("c1:c" & k) = brr
End Sub
Function sl(arr, brr, i%, j%, t$)
    If k = cs Then Exit Function
    If j + arr(i, 1) = p Then
       k = k + 1
       brr(k, 1) = t & arr(i, 1) & "=" & p
    End If
    If i < r And j < p Then
        If j + arr(i, 1) < p Then sl arr, brr, i + 1, j + arr(i, 1), t & arr(i, 1) & "+"
        sl arr, brr, i + 1, j, t
    End If
End Function

JX_shangrila

答案附件

a505239616

JX_shangrila 发表于 2016-2-24 20:30
答案附件

{:091:} 太感谢了！！！

香川群子

轻易可以算出672组不重复解符合要求。实际解有很多过万。

+990+298+62
+990+195+103+62
+990+103+72+72+62+51
+932+356+62
+878+400+72
+878+318+103+51
+878+318+92+62
+878+318+82+72
+878+308+164
+878+308+92+72
+878+308+62+51+51
+878+298+174
+878+298+92+82
+878+298+72+51+51
+878+266+72+72+62
+878+242+103+76+51
+878+242+92+76+62
+878+242+82+76+72
+878+235+103+72+62
+878+225+103+82+62
+878+225+103+72+72
+878+195+174+103
+878+195+164+62+51
+878+195+143+72+62
+878+195+133+82+62
+878+195+133+72+72
+878+195+103+92+82
+878+195+103+72+51+51
+878+195+92+72+62+51
+878+195+82+72+72+51
+878+184+103+72+62+51
+878+184+82+72+72+62
+878+174+164+72+62
+878+174+133+103+62
+878+174+103+82+62+51
+878+174+103+72+72+51
+878+174+92+72+72+62
+878+164+143+103+62
+878+164+133+103+72
+878+164+103+92+62+51
+878+164+103+82+72+51
+878+164+92+82+72+62
+878+164+72+72+62+51+51
+878+143+103+92+72+62
+878+143+103+82+72+72
+878+133+103+92+82+62
+878+133+103+92+72+72
+878+133+103+72+62+51+51
+878+133+82+72+72+62+51
+878+103+92+92+72+62+51
+878+103+92+82+72+72+51
+878+92+92+82+72+72+62
+837+400+62+51
+837+318+195
+837+318+133+62
+837+318+103+92
+837+318+82+62+51
+837+318+72+72+51
+837+308+143+62
+837+308+133+72
+837+308+103+51+51
+837+308+92+62+51
+837+308+82+72+51
+837+298+164+51
+837+298+143+72
+837+298+133+82
+837+298+92+72+51
+837+276+103+72+62
+837+266+103+82+62
+837+266+103+72+72
+837+242+195+76
+837+242+133+76+62
+837+242+103+92+76
+837+242+82+76+62+51
+837+242+76+72+72+51
+837+225+103+72+62+51
+837+225+82+72+72+62
+837+195+184+72+62
+837+195+174+82+62
+837+195+174+72+72
+837+195+164+103+51
+837+195+164+92+62
+837+195+164+82+72
+837+195+143+103+72
+837+195+133+103+82
+837+195+133+72+62+51
+837+195+103+92+72+51
+837+195+92+92+72+62
+837+195+92+82+72+72
+837+195+82+72+62+51+51
+837+194+103+82+72+62
+837+184+164+103+62
+837+184+103+92+72+62
+837+184+103+82+72+72
+837+174+174+103+62
+837+174+164+103+72
+837+174+133+72+72+62
+837+174+103+92+82+62
+837+174+103+92+72+72
+837+174+103+72+62+51+51
+837+174+82+72+72+62+51
+837+164+143+72+72+62
+837+164+133+103+62+51
+837+164+133+82+72+62
+837+164+103+92+92+62
+837+164+103+92+82+72
+837+164+103+82+62+51+51
+837+164+103+72+72+51+51
+837+164+92+72+72+62+51
+837+143+133+103+72+62
+837+143+103+82+72+62+51
+837+133+103+92+72+62+51
+837+133+103+82+72+72+51
+837+133+92+82+72+72+62
+837+103+92+92+82+72+72
+837+103+92+82+72+62+51+51
+786+420+82+62
+786+420+72+72
+786+400+164
+786+400+92+72
+786+400+62+51+51
+786+327+103+72+62
+786+318+195+51
+786+318+184+62
+786+318+174+72
+786+318+164+82
+786+318+143+103
+786+318+133+62+51
+786+318+103+92+51
+786+318+92+92+62
+786+318+92+82+72
+786+318+82+62+51+51
+786+318+72+72+51+51
+786+317+103+82+62
+786+317+103+72+72
+786+308+194+62
+786+308+184+72
+786+308+174+82
+786+308+164+92
+786+308+143+62+51
+786+308+133+72+51
+786+308+92+92+72
+786+308+92+62+51+51
+786+308+82+72+51+51
+786+298+266
+786+298+194+72
+786+298+184+82
+786+298+174+92
+786+298+164+51+51
+786+298+143+72+51
+786+298+133+82+51
+786+298+92+92+82
+786+298+92+72+51+51
+786+276+103+72+62+51
+786+276+82+72+72+62
+786+266+195+103
+786+266+164+72+62
+786+266+133+103+62
+786+266+103+82+62+51
+786+266+103+72+72+51
+786+266+92+72+72+62
+786+242+195+76+51
+786+242+184+76+62
+786+242+174+76+72
+786+242+164+82+76
+786+242+143+103+76
+786+242+133+76+62+51
+786+242+103+92+76+51
+786+242+92+92+76+62
+786+242+92+82+76+72
+786+242+82+76+62+51+51
+786+242+76+72+72+51+51
+786+235+195+72+62
+786+235+164+103+62
+786+235+103+92+72+62
+786+235+103+82+72+72
+786+225+195+82+62
+786+225+195+72+72
+786+225+174+103+62
+786+225+164+103+72
+786+225+133+72+72+62
+786+225+103+92+82+62
+786+225+103+92+72+72
+786+225+103+72+62+51+51
+786+225+82+72+72+62+51
+786+195+194+103+72
+786+195+184+103+82
+786+195+184+72+62+51
+786+195+174+133+62
+786+195+174+103+92
+786+195+174+82+62+51
+786+195+174+72+72+51
+786+195+164+143+62
+786+195+164+133+72
+786+195+164+103+51+51
+786+195+164+92+62+51
+786+195+164+82+72+51
+786+195+143+103+72+51
+786+195+143+92+72+62
+786+195+143+82+72+72
+786+195+133+103+82+51
+786+195+133+92+82+62
+786+195+133+92+72+72
+786+195+133+72+62+51+51
+786+195+103+92+92+82
+786+195+103+92+72+51+51
+786+195+92+92+72+62+51
+786+195+92+82+72+72+51
+786+194+164+72+72+62
+786+194+133+103+72+62
+786+194+103+82+72+62+51
+786+184+174+72+72+62
+786+184+164+103+62+51
+786+184+164+82+72+62
+786+184+143+103+72+62
+786+184+133+103+82+62
+786+184+133+103+72+72
+786+184+103+92+72+62+51
+786+184+103+82+72+72+51
+786+184+92+82+72+72+62
+786+174+174+103+62+51
+786+174+174+82+72+62
+786+174+164+103+72+51
+786+174+164+92+72+62
+786+174+164+82+72+72
+786+174+143+103+82+62
+786+174+143+103+72+72
+786+174+133+103+92+62
+786+174+133+103+82+72
+786+174+133+72+72+62+51
+786+174+103+92+82+62+51
+786+174+103+92+72+72+51
+786+174+92+92+72+72+62
+786+174+82+72+72+62+51+51
+786+164+143+103+92+62
+786+164+143+103+82+72
+786+164+143+72+72+62+51
+786+164+133+103+92+72
+786+164+133+103+62+51+51
+786+164+133+82+72+62+51
+786+164+103+92+92+62+51
+786+164+103+92+82+72+51
+786+164+92+92+82+72+62
+786+164+92+72+72+62+51+51
+786+143+133+103+72+62+51
+786+143+133+82+72+72+62
+786+143+103+92+92+72+62
+786+143+103+92+82+72+72
+786+143+103+82+72+62+51+51
+786+133+103+92+92+82+62
+786+133+103+92+92+72+72
+786+133+103+92+72+62+51+51
+786+133+103+82+72+72+51+51
+786+133+92+82+72+72+62+51
+786+103+92+92+82+72+72+51
+765+585
+765+420+103+62
+765+400+103+82
+765+400+72+62+51
+765+318+195+72
+765+318+164+103
+765+318+133+72+62
+765+318+103+92+72
+765+318+103+62+51+51
+765+318+82+72+62+51
+765+308+195+82
+765+308+174+103
+765+308+164+62+51
+765+308+143+72+62
+765+308+133+82+62
+765+308+133+72+72
+765+308+103+92+82
+765+308+103+72+51+51
+765+308+92+72+62+51
+765+308+82+72+72+51
+765+298+225+62
+765+298+195+92
+765+298+184+103
+765+298+174+62+51
+765+298+164+72+51
+765+298+143+82+62
+765+298+143+72+72
+765+298+133+103+51
+765+298+133+92+62
+765+298+133+82+72
+765+298+103+92+92
+765+298+103+82+51+51
+765+298+92+82+62+51
+765+298+92+72+72+51
+765+276+103+72+72+62
+765+266+103+82+72+62
+765+242+195+76+72
+765+242+164+103+76
+765+242+133+76+72+62
+765+242+103+92+76+72
+765+242+103+76+62+51+51
+765+242+82+76+72+62+51
+765+225+195+103+62
+765+225+103+72+72+62+51
+765+195+184+72+72+62
+765+195+174+103+62+51
+765+195+174+82+72+62
+765+195+164+103+72+51
+765+195+164+92+72+62
+765+195+164+82+72+72
+765+195+143+103+82+62
+765+195+143+103+72+72
+765+195+133+103+92+62
+765+195+133+103+82+72
+765+195+133+72+72+62+51
+765+195+103+92+82+62+51
+765+195+103+92+72+72+51
+765+195+92+92+72+72+62
+765+195+82+72+72+62+51+51
+765+194+103+82+72+72+62
+765+184+164+103+72+62
+765+184+103+92+72+72+62
+765+174+174+103+72+62
+765+174+164+103+82+62
+765+174+164+103+72+72
+765+174+103+92+82+72+62
+765+174+103+72+72+62+51+51
+765+164+133+103+72+62+51
+765+164+133+82+72+72+62
+765+164+103+92+92+72+62
+765+164+103+92+82+72+72
+765+164+103+82+72+62+51+51
+765+143+133+103+72+72+62
+765+143+103+82+72+72+62+51
+765+133+103+92+72+72+62+51
+765+103+92+82+72+72+62+51+51
+755+544+51
+755+420+103+72
+755+400+195
+755+400+133+62
+755+400+103+92
+755+400+82+62+51
+755+400+72+72+51
+755+318+195+82
+755+318+174+103
+755+318+164+62+51
+755+318+143+72+62
+755+318+133+82+62
+755+318+133+72+72
+755+318+103+92+82
+755+318+103+72+51+51
+755+318+92+72+62+51
+755+318+82+72+72+51
+755+308+225+62
+755+308+195+92
+755+308+184+103
+755+308+174+62+51
+755+308+164+72+51
+755+308+143+82+62
+755+308+143+72+72
+755+308+133+103+51
+755+308+133+92+62
+755+308+133+82+72
+755+308+103+92+92
+755+308+103+82+51+51
+755+308+92+82+62+51
+755+308+92+72+72+51
+755+298+235+62
+755+298+225+72
+755+298+195+51+51
+755+298+194+103
+755+298+184+62+51
+755+298+174+72+51
+755+298+164+133
+755+298+164+82+51
+755+298+143+103+51
+755+298+143+92+62
+755+298+143+82+72
+755+298+133+92+72
+755+298+133+62+51+51
+755+298+103+92+51+51
+755+298+92+92+62+51
+755+298+92+82+72+51
+755+286+103+72+72+62
+755+276+103+82+72+62
+755+266+195+72+62
+755+266+164+103+62
+755+266+103+92+72+62
+755+266+103+82+72+72
+755+242+195+82+76
+755+242+174+103+76
+755+242+164+76+62+51
+755+242+143+76+72+62
+755+242+133+82+76+62
+755+242+133+76+72+72
+755+242+103+92+82+76
+755+242+103+76+72+51+51
+755+242+92+76+72+62+51
+755+242+82+76+72+72+51
+755+235+195+103+62
+755+235+103+72+72+62+51
+755+225+195+103+72
+755+225+164+72+72+62
+755+225+133+103+72+62
+755+225+103+82+72+62+51
+755+195+194+72+72+62
+755+195+184+103+62+51
+755+195+184+82+72+62
+755+195+174+164+62
+755+195+174+103+72+51
+755+195+174+92+72+62
+755+195+174+82+72+72
+755+195+164+133+103
+755+195+164+103+82+51
+755+195+164+92+82+62
+755+195+164+92+72+72
+755+195+164+72+62+51+51
+755+195+143+103+92+62
+755+195+143+103+82+72
+755+195+143+72+72+62+51
+755+195+133+103+92+72
+755+195+133+103+62+51+51
+755+195+133+82+72+62+51
+755+195+103+92+92+62+51
+755+195+103+92+82+72+51
+755+195+92+92+82+72+62
+755+195+92+72+72+62+51+51
+755+194+164+103+72+62
+755+194+103+92+72+72+62
+755+184+174+103+72+62
+755+184+164+103+82+62
+755+184+164+103+72+72
+755+184+103+92+82+72+62
+755+184+103+72+72+62+51+51
+755+174+174+103+82+62
+755+174+174+103+72+72
+755+174+164+103+92+62
+755+174+164+103+82+72
+755+174+164+72+72+62+51
+755+174+133+103+72+62+51
+755+174+133+82+72+72+62
+755+174+103+92+92+72+62
+755+174+103+92+82+72+72
+755+174+103+82+72+62+51+51
+755+164+143+103+72+62+51
+755+164+143+82+72+72+62
+755+164+133+103+82+62+51
+755+164+133+103+72+72+51
+755+164+133+92+72+72+62
+755+164+103+92+92+82+62
+755+164+103+92+92+72+72
+755+164+103+92+72+62+51+51
+755+164+103+82+72+72+51+51
+755+164+92+82+72+72+62+51
+755+143+133+103+82+72+62
+755+143+103+92+72+72+62+51
+755+133+103+92+82+72+62+51
+755+103+92+92+72+72+62+51+51
+706+582+62
+706+541+103
+706+531+62+51
+706+521+72+51
+706+449+195
+706+449+133+62
+706+449+103+92
+706+449+82+62+51
+706+449+72+72+51
+706+429+164+51
+706+429+143+72
+706+429+133+82
+706+429+92+72+51
+706+408+174+62
+706+408+164+72
+706+408+133+103
+706+408+103+82+51
+706+408+92+82+62
+706+408+92+72+72
+706+408+72+62+51+51
+706+388+194+62
+706+388+184+72
+706+388+174+82
+706+388+164+92
+706+388+143+62+51
+706+388+133+72+51
+706+388+92+92+72
+706+388+92+62+51+51
+706+388+82+72+51+51
+706+384+184+76
+706+384+133+76+51
+706+384+92+92+76
+706+384+82+76+51+51
+706+357+225+62
+706+357+195+92
+706+357+184+103
+706+357+174+62+51
+706+357+164+72+51
+706+357+143+82+62
+706+357+143+72+72
+706+357+133+103+51
+706+357+133+92+62
+706+357+133+82+72
+706+357+103+92+92
+706+357+103+82+51+51
+706+357+92+82+62+51
+706+357+92+72+72+51
+706+356+103+72+62+51
+706+356+82+72+72+62
+706+327+317
+706+327+266+51
+706+327+235+82
+706+327+225+92
+706+327+194+72+51
+706+327+184+133
+706+327+184+82+51
+706+327+174+143
+706+327+174+92+51
+706+327+143+92+82
+706+327+143+72+51+51
+706+327+133+92+92
+706+327+133+82+51+51
+706+327+92+92+82+51
+706+317+276+51
+706+317+235+92
+706+317+225+51+51
+706+317+194+133
+706+317+194+82+51
+706+317+184+143
+706+317+184+92+51
+706+317+143+133+51
+706+317+143+92+92
+706+317+143+82+51+51
+706+317+133+92+51+51
+706+306+276+62
+706+306+266+72
+706+306+235+103
+706+306+225+62+51
+706+306+195+143
+706+306+195+92+51
+706+306+194+82+62
+706+306+194+72+72
+706+306+184+103+51
+706+306+184+92+62
+706+306+184+82+72
+706+306+174+164
+706+306+174+92+72
+706+306+174+62+51+51
+706+306+164+92+82
+706+306+164+72+51+51
+706+306+143+133+62
+706+306+143+103+92
+706+306+143+82+62+51
+706+306+143+72+72+51
+706+306+133+103+51+51
+706+306+133+92+62+51
+706+306+133+82+72+51
+706+306+103+92+92+51
+706+306+92+92+82+72
+706+306+92+82+62+51+51
+706+306+92+72+72+51+51
+706+286+276+82
+706+286+266+92
+706+286+235+72+51
+706+286+225+133
+706+286+225+82+51
+706+286+194+164
+706+286+194+92+72
+706+286+194+62+51+51
+706+286+184+174
+706+286+184+92+82
+706+286+184+72+51+51
+706+286+174+133+51
+706+286+174+92+92
+706+286+174+82+51+51
+706+286+164+143+51
+706+286+164+92+51+51
+706+286+143+133+82
+706+286+143+92+72+51
+706+286+133+92+82+51
+706+286+92+92+72+51+51
+706+276+276+92
+706+276+266+51+51
+706+276+235+133
+706+276+235+82+51
+706+276+225+143
+706+276+225+92+51
+706+276+194+174
+706+276+194+92+82
+706+276+194+72+51+51
+706+276+184+184
+706+276+184+133+51
+706+276+184+92+92
+706+276+184+82+51+51
+706+276+174+143+51
+706+276+174+92+51+51
+706+276+143+133+92
+706+276+143+92+82+51
+706+276+133+92+92+51
+706+276+92+92+82+51+51
+706+266+235+143
+706+266+235+92+51
+706+266+194+184
+706+266+194+133+51
+706+266+194+92+92
+706+266+194+82+51+51
+706+266+184+143+51
+706+266+184+92+51+51
+706+266+143+133+51+51
+706+266+143+92+92+51
+706+249+103+82+76+72+62
+706+235+235+174
+706+235+235+92+82
+706+235+235+72+51+51
+706+235+225+184
+706+235+225+133+51
+706+235+225+92+92
+706+235+225+82+51+51
+706+235+194+164+51
+706+235+194+143+72
+706+235+194+133+82
+706+235+194+92+72+51
+706+235+184+174+51
+706+235+184+143+82
+706+235+184+133+92
+706+235+184+92+82+51
+706+235+174+143+92
+706+235+174+133+51+51
+706+235+174+92+92+51
+706+235+164+143+51+51
+706+235+143+133+82+51
+706+235+143+92+92+82
+706+235+143+92+72+51+51
+706+235+133+92+82+51+51
+706+225+225+194
+706+225+225+143+51
+706+225+225+92+51+51
+706+225+194+174+51
+706+225+194+143+82
+706+225+194+133+92
+706+225+194+92+82+51
+706+225+184+184+51
+706+225+184+143+92
+706+225+184+133+51+51
+706+225+184+92+92+51
+706+225+174+143+51+51
+706+225+143+133+92+51
+706+225+143+92+82+51+51
+706+225+133+92+92+51+51
+706+194+184+184+82
+706+194+184+174+92
+706+194+184+164+51+51
+706+194+184+143+72+51
+706+194+184+133+82+51
+706+194+184+92+92+82
+706+194+184+92+72+51+51
+706+194+174+174+51+51
+706+194+174+143+133
+706+194+174+143+82+51
+706+194+174+133+92+51
+706+194+174+92+82+51+51
+706+194+164+143+92+51
+706+194+164+92+92+51+51
+706+194+143+133+92+82
+706+194+143+133+72+51+51
+706+194+143+92+92+72+51
+706+194+133+92+92+82+51
+706+184+184+174+51+51
+706+184+184+143+133
+706+184+184+143+82+51
+706+184+184+133+92+51
+706+184+184+92+82+51+51
+706+184+174+143+92+51
+706+184+174+92+92+51+51
+706+184+143+133+92+92
+706+184+143+133+82+51+51
+706+184+143+92+92+82+51
+706+174+143+133+92+51+51
+706+143+133+92+92+82+51+51

JX_shangrila

香川群子 发表于 2016-2-26 12:51
轻易可以算出672组不重复解符合要求。实际解有很多过万。

+990+298+62

群子算法大师，厉害，