Функция Choose

Връща избрана стойност от списък с аргументи.

Синтаксис:


Choose (Index, Selection1[, Selection2, ... [,Selection_n]])

Параметри:

Index: числов израз, определящ коя стойност да бъде върната.

Selection1: израз, съдържащ една от възможните алтернативи.

Функцията Choose връща стойност от списъка с изрази според индексната стойност. Ако Index = 1, функцията връща първия израз в списъка, Ако Index = 2, се връща вторият израз и т.н.

Ако индексната стойност е по-малка от 1 или по-голяма от броя на изброените изрази, функцията връща стойност Null.

В следващия пример функцията Choose е използвана за избиране на низ измежду няколко низа, за да се образува меню:

Кодове за грешка:

5 Невалидно извикване на процедура

Пример:


Sub ExampleChoose
Dim sReturn As String
    sReturn = ChooseMenu(2)
    Print sReturn
End Sub
 
Function ChooseMenu(Index As Integer)
    ChooseMenu = Choose(Index, "Quick Format", "Save Format", "System Format")
End Function