Conbinações Numéricas....

[Evandro Fontes]

Como eu faço pra fazer combinações de uma sequencia de numeros, tipo...

digito os numeros: 123

e ele me retorna num combo, num grid ou em variavel tais sequencias

123

132

321

231

213

enfim, tdas as sequencias com tais numeros.... mas nocaso eu estaria digitando mais numeros.. eu achhu qe seria de 0 a 50 ou 60, não lembro direito...

Obrigado pela ajuda

Abraços,

Evandro

[Graymalkin]

Se não for uma permutação, você pode fazer assim:

    For i = 1 To 3
        For j = 1 To 3
            For k = 1 To 3
                Debug.Print i & j & k
            Next k
        Next j
    Next i

Isso aí já deve te dar uma idéia do que é necessário para fazer o mesmo com 50 ou quantos números você quiser.

Abraços,

Graymalkin

[Ø£¡vë¡®'§®]

hehehe ele quer apostar na mega sena hehehhe... interessante esse código graymalkin..... muito simples

no pascal seria mais ou menos

For x := 1 to 3 do

begin

for y:= 1 to 3 do

begin

for z := 1 to 3 do

begin

write (x, y, z);

end;

end;

end;