[ابو محمد 2]

عدد مرات التكرار 3 وليس 6 مرات حيث يتغير العداد بقيمة الخطوة الثانية وكذلك قيمة خطوة الزيادة وتكون ( 1 , 3 ، 5 ) وهذا كود يوضح ذلك
Dim z, n AsInteger
For z = 0 To 5
MsgBox(z)
z = z + 1
Me.ListBox1.Items.Add(z)
Next
n = z
MsgBox(n)