[VB_Coder]

السلام عليكم

- على حسب مافهمت . تستطيع عمل هذا :

كود :

Private Sub Command1_Click()

Dim N As String
Dim I As Integer
Dim Z As Integer

N = InputBox(". ", "أدخل قيمة N")
For I = 1 To Val(Trim$(N))
For Z = I To 20
Rem "N وهكذا وهكذا .........حتى نصل لقيمة "
Rem "مثلا فان آخر جملة تكون N=9 فاذا كانت "

Rem " I1,I2,I3,.......هنا توجد مجموعة الجمل المحتوية على كل من"

Next Z
Next I

End Sub