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
قيمة المتغير k فى حل اسئلة الوزارة 5 عايز اعرف ليه

في جملة For ....Next
إذا كانت n=1 فإن k= 0+1=1
إذا كانت n=4 فإن k= 1+4=5 لأن قيمة n تزداد بمقدار 3 فإن n =4
قيمة n= 7 أكبر من النهاية 6 فيتوقف التكرار ولا يتم تنفيذ حساب قيمة k
لذلك آخر قيمة k= 5

جزاك الله خيرا

ممكن الاجابة على هذا السؤال
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
قيمة المتغير k فى حل اسئلة الوزارة 5 عايز اعرف ليه

انا جاوبت على التمرين دا قبل كدا في هذا الموضوع هنــــــــــــــــــــا (http://www.thanwya.com/vb/showthread.php?t=305990&page=8)

عموما الاجابة مرة تانية

عدد مرات التكرار هنا 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

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