On...GoSub Statement; On...GoTo Statement

рдХрд╛рд░реНрдпрдХреНрд░рдо рд╕рдЩреНрдХреЗрддрдорд╛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реЗрдХрд╛ рдмрд┐рднрд┐рдиреНрди рд░реЗрдЦрд╛рд╣рд░реВрдХреЛ рдПрдЙрдЯрд╛рд▓рд╛рдИ рд╕рд╛рдЦрд╛ рдЧрд░реНрди рдпрд╕рдХреЛ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХрд╛ рдЕрднрд┐рд╡реНрдпрдХреНрддрдХреЛ рдорд╛рдирдорд╛ рдирд┐рд░реНрднрд░ рдЧрд░реНрджрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:

рдорд╛ N GoSub рд▓реЗрдмреБрд▓рез[, рд▓реЗрдмреБрд▓реи[, рд▓реЗрдмреБрд▓рей[,...]]]

Num рдЕрднреАрдмреНрдпрдХреНрддрд┐рдорд╛ рд▓реЗрдмреБрд▓рез[, рд▓реЗрдмреБрд▓реи[, рд▓реЗрдмреБрд▓рей[,...]]] рдорд╛ рдЬрд╛рдиреБрд╣реЛрд╕реН

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

NumрдЕрднрд┐рд╡реНрдпрдХреНрддрд┐: реж рд░ реирелрел рдХреЛ рдмреАрдЪрдХреЛрдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рддреНрдпрд╕рд▓реЗ рдХрд╛рд░реНрдпрдХреНрд░рдорд▓рд╛рдИ рд╢рдЦрд╛ рдЧрд░реНрдирд▓рд╛рдИ рд░реЗрдЦрд╛рдХреЛ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрджрдЫ ред рдпрджрд┐ рдирдореНрдмрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ реж рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдХрдерди рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рд╣реБрдБрджреИрди ред рдпрджрд┐ NumрдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ реж рднрдиреНрджрд╛ рдмрдвреА рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдХрд╛рд░реНрдпрдХреНрд░рдо рд▓реЗрдмреБрд▓рд▓рд╛рдИ рдЙрдлреНрд░рд╛рд░реНрдЫ рддреНрдпрд╕рд▓реЗ рдирдореНрдмрд░рдХреЛ рд╕реНрдерд╛рди рд▓рд┐рдиреНрдЫ рддреНрдпреЛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐(рез = рдкрд╣рд┐рд▓реЛ рд▓реЗрдмреБрд▓; реи = рджреЛрд╕реНрд░реЛ рд▓реЗрдмреБрд▓) рд▓рд╛рдИ рдЕрдиреБрд░реВрдк рдЧрд░реНрджрдЫ ред

рд▓реЗрдмреБрд▓: рд▓рдХреНрд╖рд┐рдд рд░реЗрдЦрд╛ рдЕрдиреБрд╕рд╛рд░рдХреЛ,рдорд╛ рдЬрд╛рдиреБрд╣реЛрд╕реНрд╡рд╛ GoSub рдмрдиреМрдЯ ред

рджреНрд░рд╖реНрдЯрд╡реНрдп рдкреНрд░рддрд┐рдорд╛

,рдорд╛ рдЬрд╛рдиреБрд╣реЛрд╕реН рд╡рд╛ 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" : рдлрд░реНрдХрдиреБрд╣реЛрд╕реН

Sub2:

    sVar =sVar & " From Sub 2 to" : рдлрд░реНрдХрдиреБрд╣реЛрд╕реН

Line1:

    sVar =sVar & " рд▓реЗрдмреБрд▓рез" : , Ende рдорд╛ рдЬрд╛рдиреБрд╣реЛрд╕реН

Line2:

    sVar =sVar & " Label 2"

Ende:

    MsgBox sVar,0,"On...GoSub"

End Sub