请写vba选组合

0wchz · 发表于 2024-8-12 10:58

s="+3+29+1+11+12+22+8+18+23+33+"

实现【+1+，+11+】出1个，【+12+，+22+】出一个，【+23+，+33+】出一个，所以s应该循环出12个s2
s2=+3+29+1+12+8+18+
s2=+3+29+11+12+8+18+
s2=+3+29+1+22+8+18+
s2=+3+29+11+22+8+18+

s2=+3+29+1+23+8+18+
s2=+3+29+11+23+8+18+
s2=+3+29+1+33+8+18+
s2=+3+29+11+33+8+18+

s2=+3+29+12+23+8+18+
s2=+3+29+22+23+8+18+
s2=+3+29+12+33+8+18+
s2=+3+29+22+33+8+18+

longwin · 发表于 2024-8-12 15:13

longwin · 发表于 2024-8-12 15:14

Sub test()
s = "+3+29+1+11+12+22+8+18+23+33+"
'实现【+1+，+11+】出1个，【+12+，+22+】出一个，【+23+，+33+】出一个
ReDim brr(1 To 3, 1 To 2)
k = 0
For i = 1 To 3
k = k + 1:    brr(i, 1) = Val((k - 1) & k):    brr(i, 2) = Val(k & k)
Next
s01 = "+3+29+": s02 = "+8+18+"
For i1 = 1 To 2
For i2 = 2 To 3
If i2 <> i1 Then
      For j1 = 1 To 2
         For j2 = 1 To 2
            Debug.Print s01 & brr(i1, j1) & "+" & brr(i2, j2) & s02
         Next
      Next
End If
Next
Next
End Sub

liulang0808 · 发表于 2024-8-12 15:24

liulang0808 · 发表于 2024-8-12 15:25

jaxxcyh · 发表于 2024-8-12 15:27

按你的意思，3，29，8，18，这4个是需保留的，（1，11），（12，22），（23，33）这三组每组只留下1个，那么每个S2应该有7个数，可你写的只有6个数。不明白你到底要什么。

悠扬的旋律 · 发表于 2024-8-12 16:48

本帖最后由悠扬的旋律于 2024-8-12 16:53 编辑

太简单了
2个 2个 2个
2*2+2*2+2*2

进阶版
1个 2个 3个
?

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

[求助] 请写vba选组合