随机组合的七位数字的和值分布如何计算？

cyh_119

     七星彩是0－9共10个数字随机组合而成，每位可重复，七位数和值区间为0－63。想设计一种算法，求出每种和值的数字组合各有多少种？比如七个数和值为0的只有一种0000000，和值为1的有7种（不列举了），和值为63的只有一种9999999，依次类推，比如和值为10，11，12.......63的各有多少种数字组合（只需要知道数字组合的数目，不需要列出具体的组合类型）。谢谢。祝新春快乐，庚子年大吉！！

山菊花

0        1
1        7
2        28
3        84
4        210
5        462
6        924
7        1716
8        3003
9        5005
10        8001
11        12327
12        18368
13        26544
14        37290
15        51030
16        68145
17        88935
18        113575
19        142065
20        174195
21        209525
22        247380
23        286860
24        326865
25        366135
26        403305
27        436975
28        465795
29        488565
30        504315
31        512365
32        512365
33        504315
34        488565
35        465795
36        436975
37        403305
38        366135
39        326865
40        286860
41        247380
42        209525
43        174195
44        142065
45        113575
46        88935
47        68145
48        51030
49        37290
50        26544
51        18368
52        12327
53        8001
54        5005
55        3003
56        1716
57        924
58        462
59        210
60        84
61        28
62        7
63        1

yjh_27

循环数一下
sub aa()
dim fb(63)
for i=0 to 10^8 -1
     he=0
     for j=1 to len(i)
          he=he+mid(i,j,1)
     next
     fb(he)=fb(he)+1
next
stop
endsub

大灰狼1976

考虑半天头都大了，笨办法硬算也就几秒时间吧

1. Sub test()
   
2. Dim i&, j&, n&, s$, arrRst&(0 To 63, 1 To 2)
   
3. For i = 1 To 63
   
4.   arrRst(i, 1) = i
   
5. Next i
   
6. For i = 0 To 9999999
   
7.   s = i: n = 0
   
8.   For j = 1 To Len(s)
   
9.     n = n + Mid(s, j, 1)
   
10.   Next j
    
11.   arrRst(n, 2) = arrRst(n, 2) + 1
    
12. Next i
    
13. [a1].Resize(64, 2) = arrRst
    
14. End Sub

复制代码

microyip

纯粹就数学的排列组合知识，翻一下高中书就知道结果啦

cyh_119

大灰狼1976 发表于 2020-1-18 17:13
考虑半天头都大了，笨办法硬算也就几秒时间吧

很简洁漂亮的算法。菜鸟级的，不好意思，能否解释一下以下代码每行的意思及目的，谢谢！
For i = 0 To 9999999
  s = i: n = 0
  For j = 1 To Len(s)
    n = n + Mid(s, j, 1)
  Next j
  arrRst(n, 2) = arrRst(n, 2) + 1
Next i