11-09-15, 05:16 PM
Dim i, j As Integer
For i = 0 To 12
If j >= 3 Then j = 0
j = j + 1
MsgBox(j)
Next
الكود ناتجه
1
2
3
1
2
3
ولكن المطلوب
1
2
3
3
2
1
1
2
3
وهكذا
For i = 0 To 12
If j >= 3 Then j = 0
j = j + 1
MsgBox(j)
Next
الكود ناتجه
1
2
3
1
2
3
ولكن المطلوب
1
2
3
3
2
1
1
2
3
وهكذا

