IBM Lotus Symphony
|
يتم تكرار العبارات بين 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