[atefkhalf2004]

السادة الافاضل
لو عندي   100   سجل  

ارغب  في  تعبئة   الجل الاول  ب  1  ثم  الثاني  ب 2  ثم  الثالث  ب 3  ثم الرابع ب 3  ثم  الخامس ب 2 ثم  السادس ب 1
اي  يكون  كالتالي
1  2  3  
3   2  1
1  2  3
وهكذا

برجاء تعديل  الكود التالي

for i=0  to  99
             gggg=(j)
j=j+1

if j=3  then  j=1

next

[أبو عمر]

for i = 0 to 99
ifj>3 then j=0
j=j+1
next

عفوا تصحيا للكود السابق

PHP كود :

Private Sub Command1_Click()
For i = 0 To 99
If j >= 3 Then j = 0
j = j + 1
Next
End Su 


[atefkhalf2004]

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
وهكذا

[أبو عمر]

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
For i As Integer = 0 To 99
If i Mod 2 Then
For u = 1 To 3
Dim h As Integer = 4 - u
ListBox1.Items.Add(h)
Next
Else
For u = 1 To 3
ListBox1.Items.Add(u)
Next
End If
Next
End Sub

[abulayth]

طريقة اخرى بعد اذن اخوي ابو عمر

Dim i, j, v As Integer
v = 1
j = 1
For i = 1 To 100
msgbox(j)
j = j + v
If j > 3 Then v = -v: j = 3
If j < 1 Then v = -v: j = 1
Next i

يعطيكم العافية

[atefkhalf2004]

اشكركم علي ردودكم
شكرا لكم جميعا