ممكن حد من الأساتذه الكرام يشرح لى الكود ده
Dim r As single=0.5
Do While r>1
r= r+0.5
يعنى انا اصلا مش فاهمه Do while ازاى احل التكرار بتاعها دى مسأله كتاب الوزاره و عاوزين قيمه r
وفيه كود تانى مع انى بعف احل مسأل ال for ... next بس دى مش فهماها
For r=5 To 10 step-1
sum= sum+r
عاوزين قيمه r والحل بتاعها 5
ارجو الشرح ولكم منى جزيل الشكر
|