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
Dim 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)
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.