写出从7个元素中任取N个的全部可能

micch

1. Sub Test()
   
2.     ReDim ar(1 To 999, 1 To 2)
   
3.     For i = 12 To 567
   
4.         If i Like "*[089]*" Then
   
5.         Else
   
6.         If FunNum(i) Then
   
7.             j = j + 1
   
8.             ar(j, 1) = i
   
9.             j = j + 1
   
10.             ar(j, 1) = myReplace(i)
    
11.         End If
    
12.         End If
    
13.     Next
    
14.     For i = 1 To 7
    
15.         j = j + 1
    
16.         ar(j, 1) = Replace(1234567, i, "")
    
17.     Next
    
18.         j = j + 1
    
19.         ar(j, 1) = 1234567
    
20.     Range("D1:d" & j).Value = ar
    
21.     Range("d:d").Sort Range("d1"), , , , , , , xlNo
    
22. End Sub
    
23. Function FunNum(n0) As Boolean
    
24.     For i = 1 To Len(n0)
    
25.         x = Mid(n0, i, 1)
    
26.         If InStr(n0, x) <> InStrRev(n0, x) Then Exit Function
    
27.     Next
    
28.     FunNum = True
    
29. End Function
    
30. Function myReplace(n0)
    
31. x = 1234567
    
32. For i = 1 To Len(n0)
    
33.     x = Replace(x, Mid(n0, i, 1), "")
    
34. Next
    
35. myReplace = x
    
36. End Function
    

复制代码

micch

修正一下

一招秒杀

实在太长太复杂了，看着真让人头大脑壳疼，全新4代语言，简简单单1句4行，完美解决。

779846526

一招秒杀 发表于 2024-6-28 07:06
实在太长太复杂了，看着真让人头大脑壳疼，全新4代语言，简简单单1句4行，完美解决。

秒杀哥，帮忙看看这个问题能不能秒杀吧https://club.excelhome.net/threa ... tml?_dsign=b4004a93

今铭昔

1楼的二进制解法挺有意思的，瞟到了

sunya_0529

今铭昔 发表于 2024-6-28 14:22
1楼的二进制解法挺有意思的，瞟到了

感谢分享，又学到很多知识点

一招秒杀

有人会觉得很精妙，我看着那么多 变量 数组、循环 套循环，还有那么多复杂的运算，只觉得头疼欲裂，真要人老命，不想学了，

micch

今铭昔 发表于 2024-6-28 14:22
1楼的二进制解法挺有意思的，瞟到了

没嫖到，那个算法遇到过几次了，每次都觉得看懂了，每次都不会拿来用。

今铭昔

micch 发表于 2024-6-29 12:23
没嫖到，那个算法遇到过几次了，每次都觉得看懂了，每次都不会拿来用。

要看懂二楼的算法，得明白二进制


比如数组 [1,2,3]

有 1、2、3、12、13、23 、123这些组合


然后，1 << 3 的值是8，这里的<<的是左移位运算符，VBA没有这玩意。这里的3是数组长度，VBA的写法是 2 ^ 3，其值也是8，这里的目的是确保二进制中每一位得可以确保成为1



这就是其精妙之处

0001 可得出组合1
0010 可得出组合2
0011 可得出组合12
0100 可得出组合3
0101 可得出组合13
0111 可得出组合123

也就是根据二进制中的1的位置，取得数组中的索引，得出组合
2楼内部的for j = 1 to 7，就是在判断1的位置，根据dp动规数组累加得出组合，这里因为是题意是[1,2,3,4,5,6,7]的关系，所以可以这么搞，但不通用，如果是其他元素就不行了。

我的实现方式并一样，我是不断右移求得索引位置，与1相与判断末位是否为1。

但核心原理是一样的，都是根据二进制1的位置求得组合。然后也是相与，判断1的位置

sdytsxd991122

今铭昔 发表于 2024-6-27 20:27