[hassanalhawy]

المشاركة الأصلية كتبت بواسطة tie_rand

Dim a, d As Integer
d = 2
For a = 2 To 6 Step 2
d = d * 2
Next
MsgBox(a)
MsgBox(d)

a = 8
d = 16
حيث سيتم تكرار الحلقة 3 مرات عندما تكون a تساوى 2 و 4 و 6 وعندما تصبح قيمة a تسوى 8 يتم الخروج من الحلقة التكرارية وتنفيذ ما يلى Next
فى المرة الأولى للتكرار عندما تكون a تساوى 2 ستكون d تساوى 4
فى المرة الثانية للتكرار عندما تكون a تساوى 4 ستكون d تساوى 8
فى المرة الثالثة للتكرار عندما تكون a تساوى 6 ستكون d تساوى 16