Информатика и выч. техника \ Система управления распределенными базами данных

Язык Lotus Script. Компоненты языка LotusScript. Построение операторов языка LotusScript, страница 8

'создать массив

Dim theArrayf 5 ) as integer

theArray( 0 ) = 10

theArray( 1 ) = 20

theArray( 2 ) = 30

theArray( 3 ) = 40

theArray( 4 ) = 50

'объявить счетчик

Dim loopControl as Integer

For loopControl From 0 to 4

Print "Element number " S CStr( loopControl ) S " = " S

CStr( theArray( loopControl ) )

Next loopControl

'Выходные данные:

'Элемент номер 1 = 10

'Элемент номер 2 = 20

'Элемент номер 3 = 30

'Элемент номер 4 = 40

'Элемент номер 5 = 50

'Создать список

Dim theList List as String

theList( "first" ) = "Adam"

theList( "second" ) = "Bruce"

theList( "third" ) = "Cary"

theList( "fourth") = "Dan"

theList ( "fifth" ) = "Ed"

ForAII X in theList

Print "List tag: " S X S " contains " S theList ( X )

End ForAII

'Выходные данные:

'Тег списка: первый содержит Adam

'Тег списка: второй содержит Bruce

'Тег списка: третий содержит Сагу

'Тег списка: четвертый содержит Dan

'Тер списка: пятый содержит Ed

Next loopControl

Операторы ветвления

Операторы ветвления условно или безусловно передают управление из данного места программы в какое-либо иное место. В других языках программирования операторы ветвления, как правило, не обеспечивают возврат в ту точку, откуда произошла передача управления; однако в языке LotusScript такой возврат возможен. К операторам ветвления относятся следующие операторы:GoTo, If...GoTo...Else, On...GoTo, On.-.GoSub, GoSub и Return. ОператорGoTo безусловным образом передает управление метке, расположенной в каком-нибудь месте сценария. Возврат в исходную точку не происходит; он возможен разве что посредством другого оператора GoTo. Оператор If...GoTo...Else похож на операторIf...Then... Else, рассмотренный ранее. Разница заключается в том, что, когда проверяемое условие выполняется, происходит передача управления метке, имя которой содержится в конструкции GoTo. Оператор On...GoTo функционирует подобно операторуIf. В результате проверки условия в операторе Оn управление передается одной из меток, имена которых содержатся в операторе GoTo.

Оператор Оn..GoSub аналогичен операторуOn...GoTo, за исключе нием того, что после окончания вызванной подпрограммы управление передается оператору, следующему за операторомOn...GoSub. ОператорGoSub безусловным образом передает управление именованной подпрограмме, но, в отличие от оператораGoTo, после завершения вызванной подпрограммы выполнение программы продолжается с оператора, следующего за оператором GoSub. И последний оператор ветвления — операторReturn. Он возвращает управление тому оператору, который следует за оператором, вызвавшем ветвление.

Операторы прерывания

Операторы прерыванияExit и End применяются, чтобы раньше времени прервать процедуру либо циклыDo, For илиForAll, т.е. до того, как цикл закончится в соответствии со своим условием. ОператорEnd используется также для обозначения физического конца подпрограммы или функции.

ОператорExit применяется для прерывания выполнения текущего блочного оператораDo, For илиForAll. Он также используется, чтобы закончить выполнение функции или подпрограммы. Когда выполняется операторExit, управление передается оператору, следующему за цикломDo, For илиForAll, либо оператору, который следует за оператором, вызвавшим функцию или подпрограмму. Затем продолжается выполнение последующих строк программы; прекратится выполнение только текущего блока, функции или подпрограммы. ОператорExit следует рассматривать как аккуратное мягкое завершение выполнения. ОператорEnd, напротив, представляет собой средство для немедленного прекращения работы. Он заканчивает выполнение не только текущего оператораDo, For или ForAll, функции или подпрограммы, но и всей программы в целом. Когда выполняется операторEnd, это значит, что выполнение сценария закончилось.

Скачать файл