اريد التاكد

[المسلمة الرقيقة]

هو صحيح اوامر التكرار اتلغت ماعدا for next

[سيف سالم]

for next
do while loop
مقرر

[tarek elhamy]

المقرر

for next
do while loop

[المسلمة الرقيقة]

طب ممكن لو مكنش بتقل علي حد من الاساتذة يرفع اسئله عن do while loop لاننا ماخدنهاش في المدرسة اصلا
بس ياريت سرييييييييييييييييييييييييعععععععععععااااااااااااا اااااااااااااااااااااااااااااا

[hosuny]

أولا : أمر Do While…..Loop
الصورة العامة للأمر :
Do while شرط
مجموعة أوامر ...................
Loop

شرح معنى Do While…..Loop:
يقوم فيجول بيزيك بتقييم الشرط ، فإذا كان خاطئا false فلا يقوم بتنفيذ التكرار أبدا . ،
أما إذا كان صحيحا true فإنه يقوم بتنفيذ مجموعة الأوامر المحصورة بين كلمتى do و loop مرة ، ثم يعود فيختبر الشرط مرة أخرى .... وهكذا حتى يجد الشرط خاطئا فيخرج من التكرار .






ملحوظة : فى هذا الأمر لا نعرف عدد مرات التكرار
مثال :
Dim x As Integer
x = InputBox("ادخل الرقم")
Do While x > 10
X = x + 1
Msgbox (x)
Loop

فى المثال السابق :
يتم إدخال قيمة x فإذا كانت x أقل من 10 فلا يتم تنفيذ التكرار أبدا .
أما إذا كانت x أكبر من 10 فيتم تنفيذ التكرار ويضيف 1 إلى x .
________________________________________

________________________________________
مثال : برنامج لإظهار الأعداد الصحيحة من 1 إلى 10 في مربع رسالة
Dim i = 1
Do While i <= 10
MsgBox(i)
i = i + 1
Loop