IBM Lotus Symphony


‏‎On...GoSub Statement; On...GoTo Statement [Runtime]‎‏

يتم التفرع الى سطر من أسطر متعددة محددة في كود البرنامج، وفقا للقيمة الخاصة بتعبير رقمي.

الصيغة:

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


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