Encontrar soma de valor definido

[TheNameless 0]

Boas,

Estava a tentar criar uma rotina em que consoante muitos valores, fosse capaz de encontrar uma soma em que o resultado seja igual a um valor definido.

Por Ex:

São fornecidos valores de 1 a 9 e resultado 10.
É suposto encontrar uma combinação por exemplo 1+9 ou 8+2 ou 1+2+3+4. Com resultado 10.

Consegui por a funcionar com a função solver do Excel, mas quando o resultado é a soma de muitas combinações possíveis, pode demorar mais de uma hora a conseguir solução.

 

É possível efectuar este procedimento em VB6? Alguém tem ideias ?

VB6 porque é a linguagem que estou mais confortável.

[miglaranjeira 5]

Bom dia

Os valores da combinação não têm repetição?

ou seja no caso do resultado 1+9 ou 8+2 não se podem repetir os elementos {1,2,3,4,5,6,7,8,9}

Um abraço

Edited September 4, 2018 by miglaranjeira

[TheNameless 0]

No exemplo prático que tenho poderão aparecer os mesmos valores, mas se tiver repetição pode efectuar uma combinação com qualquer valor.

Por exemplo {1,1,1,2,3,4,5,6,7,8,9}. Resultado 10.

Resultado pode ser: 1+1+1+2+5 ou 1+1+8 ou outra combinação possível.

 

Poderão também aparecer valores decimais.

 

Obrigado