Dim Nb As Long = 0
Dim Nombre As Integer = 50
For i = 1 To Nombre - 5 ' for(i=1;i<=Nombre-5;i++)
For j = i + 1 To Nombre - 4
For k = j + 1 To Nombre - 3
Application.DoEvents()
For m = k + 1 To Nombre - 2
For n = m + 1 To Nombre - 1
For p = n + 1 To Nombre
Nb = Nb + 1
Next
Next
Next
Next
Next
Next
MessageBox.Show(Nb.ToString) ' nombre de combinaisons
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim Nb As Long = 0 Dim Nombre As Integer = 50 Dim i,j,k,l,m,n,p as Integer For i = 1 To Nombre - 5 ' for(i=1;i<=Nombre-5;i++) For j = i + 1 To Nombre - 4 For k = j + 1 To Nombre - 3 'Application.DoEvents() For m = k + 1 To Nombre - 2 For n = m + 1 To Nombre - 1 For p = n + 1 To Nombre Nb = Nb + 1 Next Next Next Next Next Next 'MessageBox.Show(Nb.ToString) 'Your code goes here Console.WriteLine(Nb.ToString)