[سيف سالم]

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

Dim N, K, C As Integer
C= 5

For N = 1 To 4
K = K + N
Next
If N > C Then
C = C + 1
End If

بعد تنفيِذ الكود يكون
1. قيمة المتغير C هى (5 - 6 - 8)
2. قيمة المتغير K هى (0 - 10 - 9)


ممكن شرح المسئلة ده لان هى مش مفهومه شويه

C= 5
يتم حجز مكان بالذاكرة اسمه c ويوضع به القيمة 5

For N = 1 To 4
يتم حجز مكان بالذاكرة اسمه N ويوضع به القيمة 1
وهذه القيمة لم تصل لبعد نهاية العداد N اللي هي 4 فيتم الانتقال الى الامر التالي
K = K + N
يجمع قيمة K اللي هي صفر على قيمة N اللي هي 1
فيكون المجوع 1 ويوضع في المكان K وتصبح K قيمتها 1
Next
يتم زيادة العداد N بالقيمة 1 لتكون 2
وهذه القيمة لم تصل لبعد نهاية العداد N اللي هي 4 فيتم الانتقال الى الامر التالي
K = K + N
يجمع قيمة K اللي هي 1على قيمة N اللي هي 2
فيكون المجوع 3 ويوضع في المكان K وتصبح K قيمتها 3
وينتقل الي
Next
يتم زيادة العداد N بالقيمة 1 لتكون 3
وهذه القيمة لم تصل لبعد نهاية العداد N اللي هي 4 فيتم الانتقال الى الامر التالي
K = K + N
يجمع قيمة K اللي هي 3على قيمة N اللي هي 3
فيكون المجوع 6 ويوضع في المكان K وتصبح K قيمتها 6
وينتقل الي

Next
يتم زيادة العداد N بالقيمة 1 لتكون 4
وهذه القيمة لم تصل لبعد نهاية العداد N اللي هي 4 فيتم الانتقال الى الامر التالي
K = K + N
يجمع قيمة K اللي هي 6على قيمة N اللي هي 4
فيكون المجوع 10 ويوضع في المكان K وتصبح K قيمتها 10
وينتقل الي


Next
يتم زيادة العداد N بالقيمة 1 لتكون 5
وهذه القيمة تصل لبعد نهاية العداد N اللي هي 4 فيتم الانتقال الى الامر ما بعدNext

If N > C Then
يقارن قيمة N اللي هي 5 بالقيمة C اللي هي 5 فلا تكون اكبر ويكون نتيجة الشرط False فيذهب الى ما بعد

End If
ويتوقف البرنامج

ويكون اخر قيم هي
c=5
N=5
K=10