IBM Lotus Symphony
|
Выполняет переход к одной из нескольких указанных строк в программе, в зависимости от значения числового выражения.
On N GoSub Метка1[, Метка2[, Метка3[,...]]]
On Числовое_выражение GoTo Метка1[, Метка2[, Метка3[,...]]]
Числовое_выражение: произвольное числовое выражение, принимающее значения от 0 до 255, которое определяет, к какой строке программы следует перейти. Если Числовое_выражение равно 0, то оператор не выполняется. Если Числовое_выражение больше 0, то происходит переход к метке с этим номером (1 - первая метка, 2 - вторая метка и т.д.)
Метка: Целевая строка, соответствующая структуре GoTo или GoSub.
![]() |
Действуют соглашения, принятые для операторов GoTo и GoSub. |
Sub ExampleOnGosub
Dim iVar As Integer
Dim sVar As String
iVar = 2
sVar =""
On iVar GoSub Sub1, Sub2
On iVar GoTo Line1, Line2
Exit Sub
Sub1:
sVar =sVar & " Из Sub 1 в" : Return
Sub2:
sVar =sVar & " Из Sub 2 в" : Return
Line1:
sVar =sVar & " Метка 1" : GoTo Ende
Line2:
sVar =sVar & " Метка 2"
Ende:
MsgBox sVar,0,"On...Gosub"
End Sub