اريد برنامج يطبع على الفورم وتكون النيجة
1 1
2 1
3 1
4 1
5 1
6 2
7 2
8 2
9 2
10 2
11 3
12 3
13 3
14 3
15 3
16 4
17 4
18 4
19 4
20 4
طلب بسيط حول loop
تفضل
لاحظ أن N هى التى جعلتها فى مثالك =4
Private Sub Command1_Click()
N = InputBox("", "")
For I = 1 To N
For J = (5 * I - 4) To (5 * I)
Print I, J
Next J
Next I
End Subمشكور كتير اخي وبارك الله فيك