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

gwjkkkkk

请参考附件。。。

boy23

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

运行后卡住了，显示：“末响应”

小花鹿

搜索9楼老师的主题：m选n 排列 组合_自定义函数

boy23

yynrzwh 发表于 2023-12-7 14:47
Sub TestSub()
   
    Set d = CreateObject("scripting.dictionary")

你好！这程序为一次把所有组合输出，但还是十分感谢

boy23

小花鹿 发表于 2023-12-7 20:30
搜索9楼老师的主题：m选n 排列 组合_自定义函数

好的！明天查看学习学习，谢谢

micch

0-15只要0开头的不重复的，我都不知道该说什么好了。    那不就是1-15的组合吗，0都固定在第一个了，还要求不重复，那后面也没有0 。 多余说一句0



改一下，输出为文件

1. Sub TestSub()
   
2.     Dim iTxt As Object, k%, pth$
   
3.     pth = "D:"
   
4.     With CreateObject("Scripting.FileSystemObject")
   
5.     For i1 = 1 To 15
   
6.         For i2 = i1 + 1 To 15
   
7.             For i3 = i2 + 1 To 15
   
8.                 For i4 = i3 + 1 To 15
   
9.                     For i5 = i4 + 1 To 15
   
10.                         For i6 = i5 + 1 To 15
    
11.                             For i7 = i6 + 1 To 15
    
12.                                 For i8 = i7 + 1 To 15
    
13.                                     s = 0 & "," & i1 & "," & i2 & "," & i3 & "," & _
    
14.                                     i4 & "," & i5 & "," & i6 & "," & i7 & "," & i8
    
15.                                     If j Mod 1073 = 0 Then
    
16.                                     If k > 0 Then iTxt.Close
    
17.                                     j = 0: k = k + 1
    
18.                                     f = pth & k & ".txt"
    
19.                                     Set iTxt = .CreateTextFile(f)
    
20.                                     End If
    
21.                                     j = j + 1
    
22.                                     iTxt.write s & vbCrLf
    
23.                                 Next i8
    
24.                             Next i7
    
25.                         Next i6
    
26.                     Next i5
    
27.                 Next i4
    
28.             Next i3
    
29.         Next i2
    
30.     Next i1
    
31.     End With
    
32. End Sub

复制代码

wodewan

boy23

wodewan 发表于 2023-12-7 22:56

使用系统是Microsoft Excel    WPS没在用

boy23

micch 发表于 2023-12-7 20:43
0-15只要0开头的不重复的，我都不知道该说什么好了。    那不就是1-15的组合吗，0都固定在第一个了，还要求 ...

复制到工作表，尝试运行没有任何运算结果，求解？

micch

boy23 发表于 2023-12-8 20:40
复制到工作表，尝试运行没有任何运算结果，求解？

没有报错吗？

没报错那应该就成功了啊，去D盘看看有没有生成文件