Dim N , K , C As Integer
C = 6
For N = 1 To 6 Step 3
K = K + N
Next
If N > C Then
C = C + 1
End If
هنشرح أمر أمر
Dim N , K , C As Integer
ده معناه ان اتحجز في الذاكرة مكان للمتغيرات n ,c ,k هيتم تخزين أعداد صحيحة بداخلهم والقيمة الابتدائية لكل منهم بصفر
C = 6
ده تم تخزين القيمة 6 داخل المتغير c
For N = 1 To 6 Step 3
K = K + N
Next
هنشرح كيفية تنفيذ الأمر for …. Next في الامر ده نعمل الاتي
اولا : اول قيمة هيأخذها المتغير n هي قيمة بداية التكرار اللي هي 1 يعني تم تخزين القيمة 1 داخل المتغير n وبعدين أسأل هل 1 اقل من أو تساوي نهاية التكرار اللي هي 6 فنلاقي انها أقل منها بناءا على ذلك هيتم تنفيذ الجمل الموجودة بين for و next اللي هي
K=k+n ( لما تلاقي نفس المتغير على يمين ويسار اليساوي ده معناه أن القيمة القديمة للمتغير هي اللي موجودة على يمين اليساوي والقيمة الجديدة له الموجودة على يسار اليساوي )
فإذنk= 0+1=1لان القيمة القديمة للمتغير هي صفر ( اللي احنا جبناه من السطر الاول في الاعلان عن المتغير )
بعدين لما نوصل عند next هتزيد قيمة المتغير n بمقدار الزيادة اللي هي عندنا 3 يصبح قيمة المتغير n4 وبعدين نسأل هل 4 أقل من أو تساوي نهاية التكرار اللي عندنا 6 هنلقيها انها اقل فيتم تنفيذ الامر
K=k+n=1+4=5 وبعدين نفس الخطوات لما نوصل لـ next هنزود قيمة المتغير n يصبح 7 وبعدين نسأل القيمة 7 أقل من أو تساوي نهاية التكرار فنلقيها أكبر منها اذن هيقف التكرار يعني الامر k=k+n مش هيتنفذ وكده تبقي جملة for انتهت ونكمل تنفيذ الأوامر اللي بعد next
تلخيص ما سبق في جدول
قيم k
قيم n
1
1
5
4
وقفت عملية التكرار
7
لاحظ هنا ان احنا بنزود قيمة المتغير ( العداد ) وبعدين نسأل
احنا وصلنا الوقتي الى تنفيذ ما بعد next ومعانا قيمة n=7 وقيمة k=5
If N > C Then
C = C + 1
End If
هنا هنلاقي قيمة الشرط n>ctrue لأن قيمة c=6 وقيمة n=7
اذن هيتم تنفيذ الامر الذي يلي then وهو c=c+1 = 6+1 = 7
بناءا على ماسبق حل الاسئلة
Value of the variable C is equal to. 7
2- Value of the variable N is equal to 7
3- The result of the condition N> C is equal to. true
4- Value of the variable K is equal to. 5