Olá galera, tudo bom?

Estou precisando desenvolver uma rotina que gere todas as combinações possíveis, por exemplo quero que ele me dê todas as possibilidades de 4 saidas formadas pelas letras A B C D E F:

ABCD

ABCE

ABCF

ABDC

ABDE...

e assim vai, vlw galera

desde já agradeço

Olá Vinícius,

 

Você precisará de 4 loops encadeados e um vetor com as letras. Faça assim:

 

    Dim Letras As Variant
    Dim ContA As Integer, ContB As Integer, ContC As Integer, ContD As Integer
   
    Letras = Array("A", "B", "C", "D", "E", "F")
    List1.Clear
   
    For ContA = 0 To 5
        For ContB = 0 To 5
            For ContC = 0 To 5
                For ContD = 0 To 5
                    List1.AddItem Letras(ContA) & Letras(ContB) & Letras(ContC) & Letras(ContD)
                Next
            Next
        Next
    Next

    Erase Letras

No exemplo acima, eu uso uma ListBox para exibid os resultados.

 

Um abraço,

Sandro.