Pergunta : Gerador da combinação

HI

I quer gerar todas as combinações possíveis de números de uma entrada dada. O que é diferente aqui o tamanho ajustado do it
the pode ser 1 carvão animal a 4 carvões animais. Nenhuma repetição é permitida, o

por exemplo o
ABCD

would gera o seguinte. o

I deve começ 2^n - 1, neste caso 2^4 - 1 = 15 que o results

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

is 15

What é o melhor código de VB/VBA para criar o this

Thanks
 class= do

Resposta : Gerador da combinação

Olá! Henry,

tentar por favor este código. Output à janela imediata, mim usou a palavra VBA.

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

Combinações secundárias ()
Const MYSET como a corda = “A, B, C, D, E, F”   'alguns valores limitados por”, “
aElems não ofuscantes () como a corda, aNibs (7) como o byte, i como o inteiro, j como o inteiro, nElems como o inteiro, s como a corda

aElems () = separação (MYSET, “, ")
nElems = UBound (aElems)
Se nElems > 7 então MsgBox “elementos demais: ” & nElems + 1: Retirar o 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 ao ^ 2 (nElems + 1) - 1
    s = ""
    Para j = 0 aos nElems
        Se i e aNibs (j) então s = s & aElems (j)
    Em seguida
    Debug.Print s
Em seguida
Submarino da extremidade
Outras soluções  
 
programming4us programming4us