Choose Function
рддрд░реНрдХрдХреЛ рд╕реВрдЪреАрдмрд╛рдЯ рдЪрдпрди рднрдПрдХреЛ рдорд╛рди рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
(рдЕрдиреБрдХреНрд░рдордгрд┐рдХрд╛, рдЪрдпрдирез[, рдЪрдпрдиреи, ... [,рдЪрдпрди_n]]) рд░реЛрдЬреНрдиреБрд╣реЛрд╕реН
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдЕрдиреБрдХреНрд░рдордгрд┐рдХрд╛: рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рдорд╛рди рдлрд░реНрдХрд╛рдЙрдирд▓рд╛рдИ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред
рдЫрдиреЛрдЯрез:рдХреБрдиреИ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рдЙрдкрдпреБрдХреНрдд рд░реЛрдЬрд╛рдЗрд╣рд░реВрдХреЛ рдПрдЙрдЯрд╛ рдорд╛рддреНрд░ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫ ред
рд░реЛрдЬреНрдиреБрд╣реЛрд╕реНрдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рдЕрдгреБрдХреНрд░рдордгреАрдХрд╛ рдорд╛рдирдорд╛ рдЖрдзрд╛рд░рд┐рдд рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВрдХреЛ рд╕реВрдЪреАрдмрд╛рдЯ рдорд╛рди рдлрд░реНрдХрд╛рдЙрдБрдЫ ред рдпрджрд┐ рдЕрдиреБрдХреНрд░рдордгрд┐рдХрд╛ = рез рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рд╕реВрдЪреАрдорд╛ рдкрд╣рд┐рд▓реЛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдлрд░реНрдХрд╛рдЙрдБрдЫ,рдпрджрд┐ рдЕрдиреБрдХреНрд░рдордгрд┐рдХрд╛ = реи рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рд╕реВрдЪреАрдмрд╛рдЯ рджреЛрд╕реНрд░реЛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдлрд░реНрдХрд╛рдЙрдБрдЫ рд░ рдЕрд░реВ рдпрд╕реИ рдЧрд░рд┐ ред
рдЕрдиреБрдХреНрд░рдордгрд┐рдХрд╛ рдорд╛рди рез рднрдиреНрджрд╛рдХрдо рд╡рд╛ рд╕реВрдЪреАрдХреГрдд рднрдПрдХрд╛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╣рд░реВрдХреЛ рдирдореНрдмрд░ рднрдиреНрджрд╛ рдмрдвреА рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛, рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рд╢реВрдиреНрдп рдорд╛рди рдлрд░реНрдХрд╛рдЙрдБрдЫ ред
рджрд┐рдПрдХрд╛ рдЙрджрд╛рд╣рд░рдгрд░реЛрдЬреНрдиреБрд╣реЛрд╕реНрдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рддреНрдпреЛ рдореЗрдиреБрдмрд╛рдЯ рдмрд┐рднрд┐рдиреНрди рд╕реНрдЯреНрд░рд┐рдЩрд╣рд░реВрдмрд╛рдЯ рд╕реНрдЯреНрд░рд┐рдЩ рдЪрдпрди рдЧрд░реНрдирд▓рд╛рдИ рдкреНрд░рдпреЛрдЧ рдЧрд░рд┐рдиреНрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleChoose
Dim sReturn As String
sReturn = ChooseMenu(2)
Print sReturn
End Sub
Function ChooseMenu(Index As Integer)
рдореЗрдиреБ рд░реЛрдЬреНрдиреБрд╣реЛрд╕реН =рд░реЛрдЬреНрдиреБрд╣реЛрд╕реН(рдЕрдиреБрдХреНрд░рдордгрд┐рдХрд╛, "рджреНрд░реБрдд рдврд╛рдБрдЪрд╛", "рдмрдЪрдд рдврд╛рдБрдЪрд╛", "рд╢реИрд▓реА рдврд╛рдБрдЪрд╛")
End Function