Dim i As Integer Dim combinaison() As String Dim hexa As Integer Try hexa = (Integer.Parse("FFFF", Globalization.NumberStyles.HexNumber)) ReDim combinaison(hexa) For i = 0 To hexa combinaison(i) = i.ToString("X4") Next i Catch ex As Exception MessageBox.Show(ex.Message) End Try
Private Function GenereCombinaison(byval pDigits as String(),byval pNbDigit as Integer) as String() Dim ltCombis as new List(of String) GetCombinaison(ltCombis,pDigits,pNbDigits,"") Return ltCombis.ToArray End Function Private Sub GetCombinaison(Byval ptCombis as List(of String),byval pDigits as String(),byval pNbDigit as Integer,ByVal pPredecessor as string) For Each lChar as String in pDigits if pNbDigits=0 Then ptCombis.Add(pPredecessor+lchar) else GetCombinaison(ptCombis,pDigits,pNbDigits-1,pPredecessor+lchar) End if Next end sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionListBox1.Items.Clear() ListBox1.Items.AddRange(combinaison)