نماذج إمتحانات / متعددة / عاطف حسان_ بدون الملغى /مايو 2014

[japanay]

Dim x As Single
For x = 1 To 10 Step 2
x = x * 2
MsgBox(x)
Next
Msgbox ( " Good Bye " & X )

محتاج الشرح تفصيلا وكمان فى حالة الجمع
X=x+2

[زياد_عاطف]

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

Dim x As Single
For x = 1 To 10 Step 2
x = x * 2
MsgBox(x)
Next
Msgbox ( " Good Bye " & X )

محتاج الشرح تفصيلا وكمان فى حالة الجمع
X=x+2

==========================
عند الذهاب ل For اول مرة يتم تخزين قيمة البداية 1 فى المتغير العداد x
و تتم المقارنة هلى قيمة العداد اصغر من او تساوى قيمة النهاية 10 يتحقق الشرط ، فيتم تنفيذ الوامر X=X*2=1*2=2 ، ثم يتم طباعة قيمة X من خلال صندوق الرسالة (2) - ثم نذهب لـ For فيتم زيادة قيمة العداد 2 بقيمة الزيادة 2 ، X=2+2=4 ، ثم
تتم المقارنة هلى قيمة العداد اصغر من او تساوى قيمة النهاية 10 يتحقق الشرط ، فيتم تنفيذ الوامر X=X*2=4*2=8، ثم يتم طباعة قيمة X من خلال صندوق الرسالة (8) - ثم نذهب لـ For فيتم زيادة قيمة العداد 8بقيمة الزيادة 2 ، X=8+2=10، ثم
و تتم المقارنة هلى قيمة العداد اصغر من او تساوى قيمة النهاية 10 يتحقق الشرط ، فيتم تنفيذ الوامر X=X*2=10*2=20، ثم يتم طباعة قيمة X من خلال صندوق الرسالة (20) - ثم نذهب لـ For فيتم زيادة قيمة العداد 20بقيمة الزيادة 2 ، X=20+2=22، ثم
تتم المقارنة هلى قيمة العداد اصغر من او تساوى قيمة النهاية 10 لا يتحقق الشرط ، فيتم تنفيذ الأوامرالتى تلى Next و هو عرض صندوق رسالة به
Good Bye 22
============================================
مع أطيب المنيات بالتوفيق
عاطف مهدى حسان