IBM Lotus Symphony


‏‎Do...Loop Statement [Runtime]‎‏

يتم تكرار العبارات بين Do و Loop statement عندما يكون الشرط True أو حتى يصبح الشرط True.

الصيغة

‏‎Do [{While | Until} condition = True]‎‏

كتلة العبارة

[Exit Do]

كتلة العبارة

Loop

أو

Do

كتلة العبارة

[Exit Do]

كتلة العبارة

‏‎Loop [{While | Until} condition = True]‎‏

المعاملات/العناصر

Condition: مقارنة، تعبير رقمي أو مجموعة حروف، تقوم بالتقييم الى True أو False.

Statement block: العبارات التي تريد تكرارها أثناء أو حتى يصبح الشرط True.

تقوم عبارة Do...Loop بتنفيذ حلقة طالما أو حتى أن يصبح شرط معين True. الشرط الخاص بالخروج من الحلقة يجب أن يتم ادخاله متبوعا بعبارة Do أو عبارة Loop. تعد الأمثلة التالية تجميعات صحيحة:

الصيغة

Do While condition = True

...كتلة العبارة

Loop

يتم تكرار statement block بين عبارات Do While و Loop طالما الشرط true.

Do Until condition = True

...كتلة العبارة

Loop

يتم تكرار العبارة بين عبارات Do Until و Loop طالما لم يتحقق الشرط.

Do

...كتلة العبارة

Loop While condition = True

يتم تكرار statement block بين عبارات Do و Loop طالما الشرط true.

Do

...كتلة العبارة

Loop Until condition = True

يتم تكرار statement block بين عبارات Do و Loop حتى يصبح الشرط true.

استخدم عبارة Exit Do لانهاء الحلقة بدون شرط. يمكنك اضافة هذه العبارة في أي مكان في عبارة Do...Loop. يمكنك أيضا تعريف شرط خروج باستخدام If...Then structure كما يلي:

Do...

العبارات

If condition = True Then Exit Do

العبارات

Loop...

مثال

Sub ExampleDoLoop

Dim sFile As String

Dim sPath As String

‏‎sPath = "c:\"‎‏

‏‎sFile = Dir$( sPath ,22)‎‏

‏‎If sFile <> "" Then‎‏

Do

MsgBox sFile

sFile = Dir$

‏‎Loop Until sFile = ""‎‏

End If

End Sub


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية