سؤال مهم للأساتذة الكبار

[the discoverer]

- حدد قيمة كل متغير بعد تنفيذ الكود التالى :
Dim N , K , C As Integer
C = 10
For N = 1 To 10 Step5
K = K + N
Next
If N > = C Then
C = C + 1
End If
أنا أعلم جزء من الإجابة و هي قيمة N=11 و قيمة C=11 و لكن لا أعلم قيمة K أرجو كتابة قيمتها مع التوضيح.......................و لكم مني جزيل الشكر

[the discoverer]

أنا قرأت الحل و الشرح للأستاذ أحمد قرني في أحد ردوده علي أمر مشابهة بعد وضع سؤالي السابق...فحبيت أضع رده هنا للإستفادة منها ....و الشكر كل الشكر للأستاذ أحمد قرني
الشرح كلآتي
فى البداية هنفذ الكود ده الاول
For N = 1 To 10 Step 5
K = K + N
Next

قيمة n
المرة الاولى للتكرار
n = 1
ويتم تكرار االمر k = k + n
بالتعويض عن قيمة k = 0 لانه لم يعطى قيمة لها وبالتعويض عن قيمة n = 1 ومنها تصبح قيمة k = 1

المرة الثانية للتكرار
n = 6
ويتم تكرار الامر k = k + n مرة ثانية
بالتعويض عن قيمة n = 6 وفيمة k = 1 ومنها تصبح قيمة k = 7

يتوقف التكرار عند قيمة n = 11 وينفذ ما بعد next واللى هو الكود ده

IF N >= C Then
C = C + 1
End If

قيمة الشرط n > = c يعنى 10=< 11 تبقى true ننفذ ما بعد Then وهو الامر c = c +1 وبالتعويض عن قيمة c = 10 ومنها تصبح قيمة c = 11
__________________