[محمد عبد الحكم]

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

بجد طب مش ممكن يعدوا الاتنين
اصل شيت الوزارة ص 9 مش عامل كده
يعنى فيه مسألة زيها اهى

Dim count , Sum as Integer
Count = 1
Sum =0
Do While Count <= 10
Sum = sum + count
Count = count + 3
Loop
MsgBox

و المطلوب قيمة المتغير Sum

انا عارفة ان المطلوب مختلف بس لو مشينا بنظرية 5 و 2 هيكون الناتج غير اللى الوزارة عاملاه
عموما انا عايزة اعرف حل المسألة دى و بس
و شكرا

لا المثال مختلف
المشاركة الأصلية كتبت بواسطة noorehan
Dim x , sum as Integer
X = 1
Sum = 0
Do While X < 5
Sum = sum + x
X = x + 1
Loop
Average = Sum / x
قيمة x تساوي 5
امتي البرنامج هيخرج عن التكرار لما ناتج الشرط يكون False
يعني تكون قيمه x اكبر من اوتساوي 5
Sum = 1+2+3+4
10
Average = Sum / x
10/5=2
قيمة Average = 2..

الاجابة دي هتزعل ناس كتير بس ده الصح وقابل للمناقشه