انت تسأل وجميع الاساتذة تجيب

[MR : ABO BATTA]

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

الرجا من سيادتكم توضيح اجابة السؤال الاتى
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

بعد تنفيذ هذه التعليمات أكمل مكان النقط :

1- قيمة المتغير C تساوى ــــــــــــــــــــ
2- قيمة المتغير N تساوى ــــــــــــــــــــ
3- ناتج الشرط N > C يساوى ــــــــــــــــــــ
4- قيمة المتغيرK تساوى ــــــــــــــــــــ
الرجا الاجابة مع توضيح الشرح للاهمية لقرب الامتحان وشكرا لسياتكم

الإجابة
عدد مرات التكرار هنا 2 ويتوقف التكرار في المرة الثالثة كالتالي :
N = 1
N = 1 + 3 = 4
N = 4 + 3 = 7
اذن آخر قيمة للمتغير N = 7
وطالما ان التكرار حدث مرتين اذن :
K = K +N
K = 0 + 1 = 1
K = 1 + 4 = 5
اذن آخر قيمة للمتغير K =5
عندما تصل N = 7 يتوقف التكرار وننتقل الى جملة IF ونرى ان قيمة التعبير الشرطي N>Cيساوي True وبالتالي يتم تنفيذ الأوامر التي تلي Then وهي :
C = C + 1
C = 6 + 1 = 7

الاجابات النهائية المطلوبة باللون الأخضر