اقتباس:
المشاركة الأصلية كتبت بواسطة 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 كما هي في نموذج الاجابة
|
طيب حضرتك جربى و حطى ال 2 msgbox قبل الNext و شوفى اية الناتج
Dim x, m AsInteger
x = 1
For m = 0 To 7 Step 3
x = x * 2
MsgBox(m)
MsgBox(x)
Next
هنا بقى اسالى الموجة الى وضع الامتحان الطالب يعرف منين ان حضرتك عايز قيمة m قبل او بعد Next؟؟؟؟؟!!!!!!!!!!!!!!!!!!!!!!!!!!!!!