نمایش جایگشت های یک مجموعه در ویژوال بیسیک

[the_king]

برنامه زیر از یک تابع بازگشتی برای محاسبه جایگشت های یک مجموعه استفاده می کند.
با وجود آنکه از نظر تئوری محدودیتی در تعداد عناصر مجموعه نیست، ListBox برای نمایش
تعداد جایگشت های قابل پذیرش اش محدودیت دارد.

Private Sub [B]MySub[/B](ByRef List() As Long, ByVal Index As Long, ByVal Count As Long)
    Dim Pos As Long, Temp As Long
    If Index > Count Then
        ShowList List, Count
        Exit Sub
    End If
    MySub List, Index + 1, Count
    For Pos = Index + 1 To Count
        Temp = List(Pos)
        List(Pos) = List(Index)
        List(Index) = Temp
        MySub List, Index + 1, Count
        List(Index) = List(Pos)
        List(Pos) = Temp
    Next
End Sub

کد برنامه به همراه فایل اجرایی EXE ضمیمه این پست می باشد.