[lola1eg]

من فضلك افتح ملف وضع في زر واكتب بداخله هذا الكود وشوف الناتج


Dim x, m AsInteger
x = 1
For m = 0 To 7 Step 3
x = x * 2
Next
MsgBox(m)
MsgBox(x)

سوف تظهر قيمة m , x وسوف تجدها 9 و 8 كما هي في نموذج الاجابة