IBM Lotus Symphony


‏‎While...Wend Statement[Runtime]‎‏

عند اكتشاف البرنامج لعبارة 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


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