IBM Lotus Symphony
|
يتم التفرع الى سطر من أسطر متعددة محددة في كود البرنامج، وفقا للقيمة الخاصة بتعبير رقمي.
On N GoSub Label1[, Label2[, Label3[,...]]]
On NumExpression GoTo Label1[, Label2[, Label3[,...]]]
NumExpression: أي تعبير رقمي بين 0 و 255 يحدد السطور التي سيتفرع اليها البرنامج. اذا كان NumExpression هو 0، لن يتم تنفيذ العبارة. اذا كان NumExpression أكبر من 0، سيقفز البرنامج الى العلامة المميزة التي لها رقم موضع يناظر التعبير (1 = First label; 2 = Second label)
Label: السطر المستهدف وفقا لهيكل 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 & " From Sub 1 to" : Return
Sub2:
sVar =sVar & " From Sub 2 to" : Return
Line1:
sVar =sVar & " Label 1" : GoTo Ende
Line2:
sVar =sVar & " Label 2"
Ende:
MsgBox sVar,0,"On...Gosub"
End Sub