قم بعمل برنامج يقوم بجمع الأعداد الفردية من 1 وحتى المتغير limit حيث أن المتغير limit يأخذ قيمته من أداة textbox1.text
dim x , limit , total as intger
limit = tectbox1.text
x= 1
do while x<= limit
total = total + x
x= x + 2
loop
msgbox ( total

1- هل يقوم بجمع الأعداد الفردية التى تقع فى محيط العدد واحد وقيمة المتغير مثلا لو كان المتغير Limit = 5
يقوم بجمع الأعداد 1+3+5 = 9
أرجو وضع إيضاح وافى لكيفية حل هذا السؤال

قم بعمل برنامج يقوم بجمع الأعداد الفردية من 1 وحتى المتغير limit حيث أن المتغير limit يأخذ قيمته من أداة textbox1.text
dim x , limit , total as intger
limit = tectbox1.text
x= 1
do while x<= limit
total = total + x
x= x + 2
loop
msgbox ( total

1- هل يقوم بجمع الأعداد الفردية التى تقع فى محيط العدد واحد وقيمة المتغير مثلا لو كان المتغير Limit = 5
يقوم بجمع الأعداد 1+3+5 = 9
أرجو وضع إيضاح وافى لكيفية حل هذا السؤال


مبدئيا لو هنفرض انك ادخلت فى الـ textbox1 الرقم 5

فإن المتغير limit بداخله الرقم 5

وبالتالى فإننا نريد جمع الأعداد الفردية من 1 إلى 5

حيث القيمة الابتدائية لـ X = 1
فيتم جمعها على المتغير total فيصبح 1
ثم نزيد الـX بـ 2 قتصبح قيمتها الجديدة 3
ثم نعود لاختبار الشرط هل قيمة الـ X أقل من أو تساوى Limit والنتيجة نعم

فيتم جمعها على المتغير total فيصبح4
ثم نزيد الـX بـ 2 قتصبح قيمتها الجديدة 5
ثم نعود لاختبار الشرط هل قيمة الـ X أقل من أو تساوى Limit والنتيجة نعم

فيتم جمعها على المتغير total فيصبح9

وعند زيادة العداد X مرة أخرى فيصبح 7
ويعاود اختبارة فإن الشرط لن يتحقق

فيقوم بتنفيذ الجملة التى تلى Loop

وهى رسالة بقيمة total بــ 9

وشكرا

لابد من تحويل القيمة الحرفية لـ " tectbox1.text " قبل اسنادها الى متغير " limit " الرقمى

ملغى do while

الخطوة الثانية كتبت limit = tectbox1.text
والصحيح ان شاء الله
limit = integer.parse( textbox1.text)
a