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

Please support us!