For A1 As Short = 1 To 6 For A2 As Short = 1 To 6 For A3 As Short = 1 To 6 For A4 As Short = 1 To 6 For A5 As Short = 1 To 6 Debug.Print(A1.ToString + "-" + _ A2.ToString + "-" + _ A3.ToString + "-" + _ A4.ToString + "-" + _ A5.ToString) Next Next Next Next Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question'on déclare une list of string Private listresultcombinaison As New List(Of String) 'on remplit la list Private Sub GetlistCombinaison() listresultcombinaison.Clear() For iter As Int32 = 11111 To 66666 If Not iter.ToString.Contains("0") And Not iter.ToString.Contains("7") _ And Not iter.ToString.Contains("8") And Not iter.ToString.Contains("9") Then listresultcombinaison.Add(iter.ToString) End If Next End Sub 'on apelle la sub GetlistCombinaison où tu as besoin soit dans le form load