Dim Count, Sum As Integer
Count = 1
Sum = 0
Do While Count <= 10
Sum = Sum + Count
Count = Count + 3
Loop
MsgBox(Sum)

بعـد تنفيـذ هـذا الكـود تكـون القيمة النهـائيـة للمتغـير Sum هي:
أ‌- 12
ب‌- 22
ج- 35
ماهى الاجابة الصحيحة ارجو التوضيح

22

جرب وضع الكود داخل البرنامج ستجد الرساله بها 22

Dim Count, Sum As Integer
Count = 1
Sum = 0
Do While Count <= 10
Sum = Sum + Count
Count = Count + 3
Loop
MsgBox(sum)

بارك الله فيك وفي اسئلتك الممتعه يا استاذ محمد أما عن الاجابة فهي بالفعل 22 وهذا جواب نهائي لان الدوارة لم تنتهي عندما تكون قيمة sum = 12 و count = 10 بل سوف تدور دورة حيث الشرط ما ذال محقق وهي ان قيمة count = 10 وبناء علية فتن قيمة sum = 12+10= 22 و count = 13

نركز شوية ونمشي مع دورة الأمر
اول حاجة count=1
sum=0+1 =1
count = 3+1 = 4
يبقى الشرط لسه متحققش
sum=1+4 =5
count=4+3 = 7
يبقى الشرط لسه متحققش
sum=5 + 7 =12
count =7+3 = 10
الشرط قرب يتحقق لأن في أو يساوي
sum=12+10 = 22
count=10 + 3 = 13
وبالتالى لن يتحقق الشرط لتصبح قيمة sum = 22

شكرا جزيلا يااستاذ راغب بارك الله فيك

شارك جدااااااااا يا مستر