اريد المساعدة

[new2011]

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