[اسلام الكبابى]

الأستاذ الكبير/ناجى ابراهيم قال فى رده (إذا ذكرت لنا ما الغرض من ذلك فربما نستطيع مساعدتك بشكل أسهل)
ولكنه لم برد علينا حتى الآن




مازلنا فى انتظار رده بحل أسهل من هذا الحل الصعب الطويل

كود :

[align=left]
Private Sub Command1_Click()

Dim iFrom() As Integer
Dim iTo() As Integer
Dim A As Integer
Dim N As Integer
Dim I, Z As Integer

A = InputBox("الكبابى", "أدخل عدد الأشياء", "")
N = InputBox("الكبابى", "أدخل عدد العوامل", "")

List1.Clear

ReDim Preserve iFrom(1 To N) As Integer
ReDim Preserve iTo(1 To N) As Integer

For I = 1 To N
    iFrom(I) = I
    iTo(I) = A - (N - I)
Next

Do

   If iFrom(N) < iTo(N) Then
      zData = ""
      For I = 1 To N
          zData = zData & iFrom(I) & ","
      Next
      zData = Left$(zData, Len(zData) - 1)
      List1.AddItem zData
      iFrom(N) = iFrom(N) + 1
   Else
      zData = ""
      For I = 1 To N
          zData = zData & iFrom(I) & ","
      Next
      zData = Left$(zData, Len(zData) - 1)
      List1.AddItem zData
      For I = N To 1 Step -1
          If iFrom(I) < iTo(I) Then
             iFrom(I) = iFrom(I) + 1
             For Z = I + 1 To N
                 iFrom(Z) = iFrom(Z - 1) + 1
             Next
             Exit For
          Else
             If I = 1 Then Exit Do
          End If
      Next
   End If
   DoEvents

Loop

End Sub
[/align]

ولكم ألف شكر