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 عايز اعرف ليه

اول تكرار

n=1

k=k+n=0+1=1

ثانى تكرار نجمع مقدار الخطوة (3) على البداية 1

n=1+3=4

وبالتالى فان

k=k+n=1+4=5