Frage : Kombinationsgenerator

HI

I möchten alle möglichen Kombinationen von Zahlen von einer gegebenen Eintragung erzeugen. Was hier unterschiedlich ist, it
the kann gesetzte Größe 1 Putzfrau bis 4 Putzfrauen sein. Keine Wiederholungen erlaubt,

z.B.
ABCD

would erzeugen das folgende.

I sollte 2^n erhalten - 1, in diesem Fall 2^4 - 1 = 15, die results

A
AB
ABC
ABCD
B
BC
BCD
C
CD
D
AC
ACD
ABD
AD
BD

is 15

What der beste VB/VBA Code ist, zum von this

Thanks
 zu verursachen

Antwort : Kombinationsgenerator

Hallo Henry,

diesen Code bitte versuchen. Er ausgibt zum sofortigen Fenster, ich verwendete Wort VBA te.

Alex
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Vorkombinationen ()
Const MYSET als Schnur = „A, B, C, D, E, F“   'irgendwelche Werte abgegrenzt durch“, „
Schwache aElems () als Schnur, aNibs (7) als Byte, i als ganze Zahl, J als ganze Zahl, nElems als ganze Zahl, s als Schnur

aElems () = aufspalteten (MYSET, „, ")
nElems = UBound (aElems)
Wenn nElems > 7 dann MsgBox „zu viele Elemente: “ u. nElems + 1: Unterseeboot herausnehmen

aNibs (0) = 1: aNibs (1) = 2: aNibs (2) = 4: aNibs (3) = 8: aNibs (4) = 16: aNibs (5) = 32: aNibs (6) = 64: aNibs (7) = 128
Für i = 1 bis ^ 2 (nElems + 1) - 1
    s = ""
    Für J = 0 zu den nElems
        Wenn i und aNibs (j) dann s = s u. aElems (j)
    Zunächst
    Debug.Print s
Zunächst
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us