اقتباس:
المشاركة الأصلية كتبت بواسطة محمد عبد الحكم
لا المثال مختلف
المشاركة الأصلية كتبت بواسطة 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..
الاجابة دي هتزعل ناس كتير بس ده الصح وقابل للمناقشه |
اولا هى ال x بتساوي صفر في الاول معلش انا غلطت
طيب ما هى ساوت الـ 5
يعنى مفروض انه اخر قيمة تكون 4
فا بالتالى sum = 1 + 2 + 3 + 4
يعنى هتسـاوى 10 و ال average يكون 10 / 4 يعنى 5 /2 يعنى 2.5
و بعدين اذا كان كلام حضرتك صح
احنا مفروض نلتزم باللى في شيت الوزارة
يعنى جت مسألة زيها بالظبظ
يعنى فيه مسألة زيها اهى
Dim count , Sum as Integer
Count = 1
Sum =0
Do While Count <= 10
Sum = sum + count
Count = count + 3
Loop
MsgBox
و المطلوب قيمة المتغير Sum
مفروض ان count = 4 و بعدين 7 و بعدين 10 و بعدين يرجع يقيم الشرط تانى يلاقيه True
تبقى count اخر قيمة ليها ب 13
يعنى ال sum = 4 + 7 + 10 + 13 = 34
و الوزارة عاملاها 22 على اساس انه بعد ما يقف عن 10 مش هيكمل
انا عارفة ان المطلوب مختلف بس لو مشينا بنظرية 5 و 2 هيكون الناتج غير اللى الوزارة عاملاه
شكرا