Cuestión : Generador de la combinación

HI

I quiere generar todas las combinaciones posibles de números de una entrada dada. Cuál es diferente aquí el tamaño determinado del it
the puede ser 1 carbón de leña a 4 carbones de leña. No se permite ningunas repeticiones, el

eg. el
ABCD

would generan el siguiente. el

I debe conseguir 2^n - 1, en este caso 2^4 - 1 = 15 que el results

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

is 15

What es el mejor código de VB/VBA para crear el this

Thanks
 class= del

Respuesta : Generador de la combinación

Hola Henry,

intentar por favor este código. Hará salir a la ventana inmediata, yo utilizó la palabra VBA.

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

Combinaciones secundarias ()
Const MYSET como secuencia = “A, B, C, D, E, F”   'cuaesquiera valores delimitados por”, “
aElems déviles () como secuencia, aNibs (7) como octeto, i como número entero, j como número entero, nElems como número entero, s como secuencia

los aElems () = partieron (MYSET, “, ")
nElems = UBound (aElems)
Si nElems > 7 entonces MsgBox “demasiados elementos: ” y nElems + 1: Salir el submarino

aNibs (0) = 1: aNibs (1) = 2: aNibs (2) = 4: aNibs (3) = 8: aNibs (4) = 16: aNibs (5) = 32: aNibs (6) = 64: aNibs (7) = 128
Para i = 1 al ^ 2 (nElems + 1) - 1
    s = ""
    Para j = 0 a los nElems
        Si i y aNibs (j) entonces s = s y aElems (j)
    Después
    Debug.Print s
Después
Submarino del extremo
Otras soluciones  
 
programming4us programming4us