IBM Lotus Symphony
|
Бағдарлама Әзірше нұсқауын тапқанда, шартты тексереді. Шарт "False" болса, бағдарлама тікелей Бағыттану нұсқауымен жалғастырады. Шарт "True" болса, тұйықталу бағдарлама Бағыттану нұсқауын тауып, Әзірше нұсқауына қайтқанша орындала береді. Шарт әлі де "True" болып тұрса, тұйықталу қайтадан жасалады.
Орындау...Тұйықталу нұсқауынан ерекшелігі Әзірше...Бағыттану тұйықталуын Шығу нұсқауымен болдырмау мүмкін емес. Әзірше...Бағыттану тұйықталуынан GoTo, нұсқауы арқылы шықпаңыз, бұл орынжау қатесіне әкелуі мүмкін.
Орындау...Тұйықталу нұсқауы Әзірше...Бағыттану нұсқауынан әлдеқайда икемді.
Әзірше шарты [Statement] Бағыттану
Қосымша ExampleWhileWend
stext ұяшығын жол ретінде қайтару
iRun ұяшығын бүтін сан ретінде қайтару
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
Бағыттану
MsgBox sText,0,"Мәтін шифрланды"
Аяқталу ішкі элементі