Este fórum está sendo desativado

[Lunatto]

Olá Pessoal,

Estou quebrando a cabeça para tentar resolver uma questão sobre análise combinatória/permutação.

Explicação: Possuo uma avalição com 5 perguntas. Para cada pergunta possuo 4 análises que devem ser respondidas em sim ou não. O resultado de cada pergunta será a soma de "sim's" obtidos.

Ou seja, para a pergunta 1 posso ter as seguintes combinações : 1, 2, 3, 4 ou 5 (números de sim's obtidos)
Isso se repete para as outras 4 perguntas.

A grande questão é:
Quais são as possibilidades de resultados das minhas 5 perguntas?

Ex: 1, 2, 2, 4,2
1, 1, 5, 4, 2
1, 1, 1, 1, 1...

Existe alguma forma de visualizar todas essas combinações? seja por macro, loop,etc...?

Abs,
Lucas

[laennder]

5^5 = 3125 combinações diferentes.

Utilize a macro abaixo para gerar as combinações.

Código: Selecionar todos

Sub Combinacoes()

Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim i As Integer

i = 1
For a = 1 To 5
    For b = 1 To 5
        For c = 1 To 5
            For d = 1 To 5
                For e = 1 To 5
                    ActiveSheet.Cells(i, 1) = a & ", " & b & ", " & c & ", " & d & ", " & e
                    i = i + 1
                Next e
            Next d
        Next c
    Next b
Next a


MsgBox "Finalizado!"

End Sub