IBM Lotus Symphony
|
عند اكتشاف البرنامج لعبارة While statement، يقوم باختبار الشرط. اذا كان الشرط False، سيستمر البرنامج مباشرة بعد عبارة Wend statement. اذا كان الشرط True، سيتم تنفيذ الحلقة حتى يقوم البرنامج بايجاد عبارة Wend ثم يقفز ثانية الى عبارة While statement. اذا كان الشرط مازال True، سيتم تنفيذ الحلقة مرة أخرى.
خلاف العبارة Do...Loop، لا يمكنك الغاء حلقة While...Wend محدد بهاExit. لا يمكن الخروج من حلقة While...Wend loop باستخدام GoTo، حيث يمكن أن يؤدي هذا لخطأ run-time.
تكون حلقة Do...Loop أكثر مرونة من While...Wend.
While Condition [Statement] Wend
Sub ExampleWhileWend
Dim stext As String
Dim iRun As Integer
sText ="هذا نص قصير"
iRun = 1
while iRun < Len(sText)
if Mid(sText,iRun,1 )<> " " then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )
iRun = iRun + 1
Wend
MsgBox sText,0,"Text encoded"
end sub