اريد التاكد

[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