[VB6] Permutazioni per trovare combinazioni di parole

[marco1970]

salve,
vorrei creare un gioco nel quale inserendo una parola possa trovare tutte le possibili combinazioni con le lettere inserite tipo:

ciao =oaic = iaoc = aoci ...eccetera

consigli?
Grazie
Marco

[pierabo]

Ciao, il codice è semplicissimo, da perfezionare. Il form di esempio ha un TextBox, un ListBox, un tasto:

Private Sub Command1_Click()
  Dim IndParola
  Dim IndLit
  Dim Stringa As String
  List1.Clear
  
  For IndParola = 1 To Len(Text1.Text)
    Stringa = Stringa & Mid$(Text1.Text, IndParola, 1)
    For IndLit = Len(Text1.Text) To 1 Step -1
      If IndParola <> IndLit Then
        Stringa = Stringa & Mid$(Text1.Text, IndLit, 1)
      End If
    Next IndLit
    List1.AddItem Stringa
    Stringa = ""
  Next IndParola

End Sub

[marco1970]

anche se avevo già risolto ti ringrazio per il tempo che mi hai dedicato sei stato gentile nel farmi un esempio.
Grazie
Marco

[Marcowa]

Ciao anch'io vorrei scrivere le permutazioni di date cifre, visto che hai risolto potresti condividere? Grazie Marco