TODAS AS COMBINACOES POSSIVEIS
Tempos atrás, o Webmaster postou uma dica de como calcular todas as combinações possÃveis,
dada uma palavra qualquer, ou mesmo um número com duas, três ou mais dezenas.
O código é o seguinte:
Option Explicit
Private Sub Form_Load()
Const S = [Ô]vbmania[Ô]
Call Combinar(S)
Label1.Caption = List1.ListCount & [Ô] variações para [Ô] & S
End Sub
Private Sub Combinar(Palavra As String, Optional Anterior As String)
Dim I As Integer
If Len(Palavra) <> 1 Then
For I = 1 To Len(Palavra)
Combinar Left(Palavra, I - 1) & Mid(Palavra, I + 1), Anterior & Mid(Palavra, I, 1)
Next
Else
List1.AddItem Anterior & Palavra
End If
End Sub
Deveriam ser criados um label e uma listbox comum. Durante o carregamento do form, seriam
apresentadas as possÃveis combinações com as sete letras da palavra <vbmania> (total de 5040).
Mudando o valor da Constante Const S para [Ô]125[Ô], eram mostradas as combinações dos 3 números.
Como curioso que sou, tentei criar uma textbox para entrar com um número qualquer (que não
precisasse ser digitado diretamente no código, como no exemplo), associando-o a uma variável.
Mas não consegui. Alguém teria uma idéia de como adaptar o código, para receber um valor [ô]x[ô]
qualquer em uma inputbox ou textbox, em tempo de execução, e que processasse esse valor?
num tendi seria isto
[txt-color=#007100][ô] Const S = [Ô]vbmania[Ô] <---retire esta linha coloque o código em um botão[/txt-color]
Call Combinar(Text1.Text)
Label1.Caption = List1.ListCount & [Ô] variações para [Ô] & Text1.Text
OK. Funcionou...
Valeu pela dica, irmão.
T+
Tópico encerrado , respostas não são mais permitidas