10个数字每5个组合1次,能组合多少个?10个数字每5个为1组,能组合多少组?分别是 1 2 3 4 5 6 7 8 9 0.比如：12345 12346 12347等等.如果每6个为1组呢?

先考虑首位，除了0以外的9个数都可以选，所以是C9，1；然后后四位在剩余的9个数字中选出四个进行全排列，所以是P9，4。所以C9，1*P9，4=27216种。 每六个为一组也一样。先考虑首位，是C9，1；然后后五位在剩余的9个数字中选出五个进行全排列，所以是P9，5。所以C9，1*P9，5=136080种。

这个真的很难啊

最高位取除了0以外的任意9个数字
第二位取除了最高位以外的任意9个数字
第三位取除了前两位以外的任意8个数字
第四位取除了前三位以外的任意7个数字
第五位取除了前四位以外的任意6个数字
即9×9×8×7×6=27216
同理六个的
9×9×8×7×6×5=136080个

Sub f105NoCF() '10取5不重复252组
Dim M As Integer

For I1 = 0 To 5
For I2 = I1 + 1 To 6
For I3 = I2 + 1 To 7
For I4 = I3 + 1 To 8
For I5 = I4 + 1 To 9
M = M + 1
Range("A" & M) = I1: Range("B" & M) = I2: Range("C" & M) = I3: Range("D" & M) = I4: Range("E" & M) = I5
Next
Next
Next
Next
Next
End Sub
Sub f106NoCF() '10取6不重复210组
Dim M As Integer

For I1 = 0 To 4
For I2 = I1 + 1 To 5
For I3 = I2 + 1 To 6
For I4 = I3 + 1 To 7
For I5 = I4 + 1 To 8
For I6 = I5 + 1 To 9
M = M + 1
Range("A" & M) = I1: Range("B" & M) = I2: Range("C" & M) = I3: Range("D" & M) = I4: Range("E" & M) = I5: Range("F" & M) = I6
Next
Next
Next
Next
Next
Next
End Sub