Question : Générateur de combinaison

HI

I veulent produire de toutes les combinaisons possibles des nombres d'une entrée donnée. Ce qui est différent ici la taille réglée de l'it
the peut être 1 char à 4 chars. On ne permet aucune répétition, le

par exemple le
ABCD

would produit du suivant. le

I devrait obtenir 2^n - 1, dans ce cas-ci 2^4 - 1 = 15 que le results

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

is 15

What est le meilleur code de VB/VBA pour créer le this

Thanks
class= de

Réponse : Générateur de combinaison

Salut Henry,

veuillez essayer ce code. Il produira à la fenêtre immédiate, j'a employé le mot VBA.

Alex

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

Combinaisons secondaires () Const MYSET comme corde = « A, B, C, D, E, F » 'toutes valeurs délimitées par », «  Faibles aElems () comme corde, aNibs (7) comme byte, I comme nombre entier, j comme nombre entier, nElems comme nombre entier, s comme corde les aElems () = se sont dédoublés (MYSET, « , ") nElems = UBound (aElems) Si nElems > 7 puis MsgBox « trop d'éléments :  » et nElems + 1 : Sortir le sous-marin aNibs (0) = 1 : aNibs (1) = 2 : aNibs (2) = 4 : aNibs (3) = 8 : aNibs (4) = 16 : aNibs (5) = 32 : aNibs (6) = 64 : aNibs (7) = 128 Pour I = 1 au ^ 2 (nElems + 1) - 1 s = "" Pour j = 0 aux nElems Si I et aNibs (j) puis s = s et aElems (j) Après Debug.Print s Après Sous-marin d'extrémité