Switch Function

рдорд╛рдирджреНрд╡рд╛рд░рд╛ рдкрдЫреНрдпрд╛рдЗрдПрдХрд╛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдХреЛ рд╕реВрдЪреАрдХреГрдд рдЧрд░реНрджреИ рддрд░реНрдХрд╣рд░реВрдХреЛ рд╕реВрдЪреА рдореБрд▓реНрдпрд╛рдЩреНрдХрди рдЧрд░реНрджрдЫ ред рд╕реНрд╡рд┐рдЪ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рдорд╛рди рдлрд░реНрдХрд╛рдЙрдБрдЫ рддреНрдпреЛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд╕рдБрдЧ рд╕рдВрд▓рдЧреНрди рд╣реБрдиреНрдЫ рдЬреБрди рдпреЛ рдкреНрд░рдХрд╛рд░реНрдпрджреНрд╡рд╛рд░рд╛ рдкрд╛рд╕ рд╣реБрдиреНрдЫ ред

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


рд╕реНрд╡рд┐рдЪ (рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рез, рдорд╛рдирез[, рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐реи, рдорд╛рдиреи[..., рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐_n, рдорд╛рди_n]])

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

рд╕реНрд╡рд┐рдЪрдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рдмрд╛рдпрд╛рдБ рджреЗрдЦреА рджрд╛рдпрд╛рдБрдорд╛рд░реНрдлрдд рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдореБрд▓реНрдпрд╛рдЩреНрдХрди рдЧрд░реНрджрдЫ,рддреНрдпрд╕рдкрдЫрд┐ рдорд╛рди рдлрд░реНрдХрд╛рдЙрдБрдЫ рдЬрд╕рд▓реЗ рдкреНрд░рдХрд╛рд░реНрдп рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рд▓рд╛рдИ рдорд╛рдирд╛рдЩреНрдХрди рдЧрд░реЗрдХреЛ рд╣реБрдиреНрдЫ ред рдпрджрд┐ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рд░ рдорд╛рди рдЬреЛрдбрд╛рдХреЛ рд░реВрдкрдорд╛ рдирджрд┐рдПрдХреЛ рдЦрдгреНрдбрдорд╛ рд░рдирдЯрд╛рдЗрдо рддреНрд░реБрдЯрд┐ рдЖрдЙрдЫ ред

рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐:рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬреБрди рддрд╛рдкрдИ рдореБрд▓реНрдпрд╛рдЩреНрдХрди рдЧрд░реНрдирд▓рд╛рдИ рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред

рдорд╛рди: рдорд╛рди рдЬрд╕рд▓рд╛рдИ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рд╕рддреНрдпрднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рддрдкрд╛рдИрдБ рдлрд░реНрдХрд╛рдЙрдирд▓рд╛рдИ рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред

рджрд┐рдПрдХрд╛ рдЙрджрд╛рд╣рд░рдгрдорд╛, рд╕реНрд╡рд┐рдЪ рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рдирд╛рдорд▓рд╛рдИ рдЙрдЪрд┐рдд рд▓рд┐рдЩ рдорд╛рдирд╛рдЩреНрдХрди рдЧрд░реНрджрдЫ рдЬрд╕рд▓реЗ рдкреНрд░рдХрд╛рд░реНрдпрд▓рд╛рдИ рдкрд╛рд╕ рдЧрд░реНрджрдЫ ред

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

рдЙрджрд╛рд╣рд░рдг:


Sub ExampleSwitch
Dim sGender As String
    sGender =рд▓рд┐рдЩ рдЕрдгреБрдХреНрд░рдордгрд┐рдХрд╛ рдкрд╛рдЙрдиреБрд╣реЛрд╕реН( "рдЬреЛрд╣рди" )
    MsgBox sGender
End Sub
 
Function GetGenderIndex (sName As String) As String
    рд▓рд┐рдЩ рдЕрдиреБрдХреНрд░рдордгрд┐рдХрд╛ рдкрд╛рдЙрди = рд╕реНрд╡рд┐рдЪ(sName = "рдЬреЗрди", "рдорд╣рд┐рд▓рд╛", sName = "рдЬреЛрд╣рди", "рдкреБрд░реБрд╖")
End Function

Please support us!