Algo de combinaison

Dim ch1 As String

Function fact(ByVal x As Integer) As Integer

Dim f, i As Integer
f = 1
For i = 1 To x
f = f * i
Next
fact = f

End Function


Sub Main()

Dim ch, ch1 As String
Dim j, n As Integer
Console.WriteLine("donner votre nombre")
ch = Console.ReadLine
n = 0
ch1 = ""
Do
j = 1
For i As Integer = 0 To ch.Length - 1
j = j + 1
If i = 0 Then
ch1 = Mid(ch, j, 1) & Mid(ch, j - 1, 1) & Mid(ch, j + 1, ch.Length - j)
Console.Write(ch1 & ",")
ch = ch1
n = n + 1
Else
If ch.Length - j >= 0 Then
ch1 = Mid(ch1, 1, i) & Mid(ch, j, 1) & Mid(ch, j - 1, 1) & Mid(ch, j + 1, ch.Length - j)
Console.Write(ch1 & ",")
ch = ch1
n = n + 1
End If
End If
Next
Loop Until n = fact(ch.Length)
Console.ReadLine()

End Sub