Choose Function

Π’ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ Π²Ρ‹Π±Ρ€Π°Π½Π½ΠΎΠ΅ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ ΠΈΠ· списка Π°Ρ€Π³ΡƒΠΌΠ΅Π½Ρ‚ΠΎΠ².

Бинтаксис


Choose (ИндСкс, Π’Π°Ρ€ΠΈΠ°Π½Ρ‚1[, Π’Π°Ρ€ΠΈΠ°Π½Ρ‚2, ... [, Π’Π°Ρ€ΠΈΠ°Π½Ρ‚_n]])

ΠŸΠ°Ρ€Π°ΠΌΠ΅Ρ‚Ρ€Ρ‹:

ИндСкс. ЧисловоС Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅, ΡƒΠΊΠ°Π·Ρ‹Π²Π°ΡŽΡ‰Π΅Π΅, ΠΊΠ°ΠΊΠΎΠ΅ ΠΈΠ· Π·Π½Π°Ρ‡Π΅Π½ΠΈΠΉ возвращаСтся.

Π’Π°Ρ€ΠΈΠ°Π½Ρ‚1. Π›ΡŽΠ±ΠΎΠ΅ Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠ΅, ΡΠ²Π»ΡΡŽΡ‰Π΅Π΅ΡΡ ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ· Π²ΠΎΠ·ΠΌΠΎΠΆΠ½Ρ‹Ρ… Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ΠΎΠ².

Ѐункция Choose Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ ΠΈΠ· списка Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠΉ Π² зависимости ΠΎΡ‚ значСния ИндСкс. Если ИндСкс = 1, эта функция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ ΠΏΠ΅Ρ€Π²Ρ‹ΠΉ Π²Π°Ρ€ΠΈΠ°Π½Ρ‚ ΠΈΠ· списка; Ссли ИндСкс = 2, β€” Π²Ρ‚ΠΎΡ€ΠΎΠ΅, ΠΈ Ρ‚. Π΄.

Если Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ индСкса мСньшС, Ρ‡Π΅ΠΌ 1, ΠΈΠ»ΠΈ большС, Ρ‡Π΅ΠΌ количСство Π²Ρ‹Ρ€Π°ΠΆΠ΅Π½ΠΈΠΉ Π² спискС, функция Π²ΠΎΠ·Π²Ρ€Π°Ρ‰Π°Π΅Ρ‚ Π·Π½Π°Ρ‡Π΅Π½ΠΈΠ΅ Null.

Π’ ΡΠ»Π΅Π΄ΡƒΡŽΡ‰Π΅ΠΌ ΠΏΡ€ΠΈΠΌΠ΅Ρ€Π΅ функция Choose ΠΈΡΠΏΠΎΠ»ΡŒΠ·ΡƒΠ΅Ρ‚ΡΡ для Π²Ρ‹Π±ΠΎΡ€Π° ΠΎΠ΄Π½ΠΎΠΉ строки Π² спискС, ΠΏΡ€Π΅Π΄ΡΡ‚Π°Π²Π»ΡΡŽΡ‰Π΅Π³ΠΎ собой мСню.

Error codes:

5 ΠΠ΅ΠΏΡ€Π°Π²ΠΈΠ»ΡŒΠ½Ρ‹ΠΉ Π²Ρ‹Π·ΠΎΠ² ΠΏΡ€ΠΎΡ†Π΅Π΄ΡƒΡ€Ρ‹

ΠŸΡ€ΠΈΠΌΠ΅Ρ€:


Sub ExampleChoose
Dim sReturn As String
    sReturn = ChooseMenu(2)
    Print sReturn
End Sub
 
Function ChooseMenu(Index As Integer)
    ChooseMenu = Choose(Index, "Быстрый Ρ„ΠΎΡ€ΠΌΠ°Ρ‚", "Π‘ΠΎΡ…Ρ€Π°Π½ΠΈΡ‚ΡŒ Ρ„ΠΎΡ€ΠΌΠ°Ρ‚", "БистСмный Ρ„ΠΎΡ€ΠΌΠ°Ρ‚")
End Function