0~15 16位数，生成指定值“0”开头的9位所有不重复号段组合...

boy23

1、0~15  16位数，生成指定值“0”开头的9位所有不重复号段组合。数值“0”开头组合有：6435组
2、使用分隔符号“，”进行分隔。如：0，1，2，3，4，5，6，7，8
3、每次以1073组组合，新建一文本文档进行分批输出保存。

titi012

理论上，应该有 15*14*13*12*11*10*9*8=259459200 种组合。

morpheus126

titi012 发表于 2023-12-7 11:36
理论上，应该有 15*14*13*12*11*10*9*8=259459200 种组合。

大部分类似需求，提出者都没有计算过组合数量。。。

boy23

titi012 发表于 2023-12-7 11:36
理论上，应该有 15*14*13*12*11*10*9*8=259459200 种组合。

只是组合输出开头为0的结果

boy23

morpheus126 发表于 2023-12-7 11:56
大部分类似需求，提出者都没有计算过组合数量。。。

计算过。就是16选9数值0的所有不重复排列组合结果，有6435组

yynrzwh

Sub TestSub()
   
    Set d = CreateObject("scripting.dictionary")
    For i1 = 1 To 15
        For i2 = i1 + 1 To 15
            For i3 = i2 + 1 To 15
                For i4 = i3 + 1 To 15
                    For i5 = i4 + 1 To 15
                        For i6 = i5 + 1 To 15
                            For i7 = i6 + 1 To 15
                                For i8 = i7 + 1 To 15
                                    s = i1 & "," & i2 & "," & i3 & "," & _
                                    i4 & "," & i5 & "," & i6 & "," & i7 & "," & i8
                                    d(0 & "," & s) = ""
                                Next i8
                            Next i7
                        Next i6
                    Next i5
                Next i4
            Next i3
        Next i2
    Next i1
    Range("a1").Resize(d.Count) = Application.Transpose(d.keys)
    Range("c1") = d.Count
End Sub

titi012

boy23 发表于 2023-12-7 12:48
计算过。就是16选9数值0的所有不重复排列组合结果，有6435组

我确实有点糊涂了，楼主为什么说6435组呢？
具体是怎么算出来的？
你说说方法

titi012

这个我不敢测试，怕卡住了。

1. Sub text()
   
2.     Dim Fso As Object, Ostream As Object
   
3.     Dim txtName As String
   
4.     Set Fso = CreateObject("Scripting.FileSystemObject")
   
5.     txtName = ThisWorkbook.Path & "\组合列表.txt"
   
6.     Set Ostream = Fso.CreateTextFile(Filename:=txtName, overwrite:=True)
   
7.     Dim a%, b%, c%, d%, e%, f%, g%, h%, xStr As String
   
8.     For a = 1 To 15: For b = 1 To 15: For c = 1 To 15: For d = 1 To 15: For e = 1 To 15: For f = 1 To 15: For g = 1 To 15: For h = 1 To 15
   
9.         If b <> a And c <> a And c <> b And d <> a And d <> b And d <> c And e <> a And e <> b And e <> c And e <> d And _
   
10.           f <> a And f <> b And f <> c And f <> d And f <> e And g <> a And g <> b And g <> c And g <> d And g <> e And g <> f _
    
11.           And h <> a And h <> b And h <> c And h <> d And h <> e And h <> f And h <> g Then
    
12.             xStr = "0、" & a & "、" & b & "、" & c & "、" & d & "、" & e & "、" & f & "、" & g & "、" & h
    
13.             Ostream.WriteLine xStr
    
14.         End If
    
15.     Next h, g, f, e, d, c, b, a
    
16.     Set Ostream = Nothing
    
17.     Set Fso = Nothin
    
18. End Sub

复制代码

yjh_27

titi012 发表于 2023-12-7 15:28
我确实有点糊涂了，楼主为什么说6435组呢？
具体是怎么算出来的？
你说说方法

C(15，8)=6435。组合

morpheus126

titi012 发表于 2023-12-7 17:58
这个我不敢测试，怕卡住了。

某种意义上。。。这算是个病毒了