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

micch · 发表于 2024-6-27 22:40

Sub Test()
ReDim ar(1 To 999, 1 To 2)
For i = 12 To 567
If i Like "*[089]*" Then
Else
If FunNum(i) Then
j = j + 1
ar(j, 1) = i
j = j + 1
ar(j, 1) = myReplace(i)
End If
End If
Next
For i = 1 To 7
j = j + 1
ar(j, 1) = Replace(1234567, i, "")
Next
j = j + 1
ar(j, 1) = 1234567
Range("D1:d" & j).Value = ar
Range("d:d").Sort Range("d1"), , , , , , , xlNo
End Sub
Function FunNum(n0) As Boolean
For i = 1 To Len(n0)
x = Mid(n0, i, 1)
If InStr(n0, x) <> InStrRev(n0, x) Then Exit Function
Next
FunNum = True
End Function
Function myReplace(n0)
x = 1234567
For i = 1 To Len(n0)
x = Replace(x, Mid(n0, i, 1), "")
Next
myReplace = x
End Function

复制代码

micch · 发表于 2024-6-27 22:45

修正一下

一招秒杀 · 发表于 2024-6-28 07:06

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

779846526 · 发表于 2024-6-28 11:41

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

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

今铭昔 · 发表于 2024-6-28 14:22

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

sunya_0529 · 发表于 2024-6-28 22:40

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

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

一招秒杀 · 发表于 2024-6-29 08:52

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

，不想学了

，

micch · 发表于 2024-6-29 12:23

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

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

今铭昔 · 发表于 2024-6-29 14:12

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-30 15:41

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

		自动登录	找回密码
密码			免费注册

[已解决] 写出从7个元素中任取N个的全部可能

评分

评分

评分

评分

评分