Choose Function
αααα‘ααβαααααβαααβααΆαβααααΎαβααΈβαααααΈβααβα’αΆαα»αααααΒ α
ααΆαααβααααααα α
Choose (Index, Selection1[, Selection2, ... [,Selection_n]])
αααΆαααΆαααααα α
αααααααααβ α ααααααβαααβαααβαααααΆααβααΈβααααα ααΎααααΈβαααα‘αα α
Selection1 α ααααααβααΆβαα½αβαααβααΆαβαααααΎαβαα½αβαααα»αβαααααΎαβαααβα’αΆα βαα βαα½α Β α
α’αα»αααα Choose αααα‘ααβαααααβααΈβαααααΈβααααααβαααβααα’ααβααΎβαααααβαααααααααΒ α ααααα·αβααΎ ααααααααα = 1 α’αα»ααααβαααα‘ααβααααααβααΈβαα½αβαααα»αβαααααΈ ααααα·αβααΎβααααααααα i= 2 ααΆβαααα‘ααβααααααβααΈβααΈα αα·αβααααβαααααΆααΒ α
ααααα·αβααΎβαααααβαααααααααβααΌα βααΆα 1 α¬βααβααΆαβα ααα½αβααααααβαααβααΆαβααΆα α’αα»ααααβαααα‘ααβααααα Null Β α
α§ααΆα αααβααΌα βααΆαβααααα ααααΎβα’αα»αααα Choose ααΎααααΈβααααΎαβααααβα’ααααβαα½αβααΈβααααβα’ααααβα αααΎα αααβαααααΎαβααΆαβααΆβαααΊαα»αβαα½αβ α
α§ααΆα ααα α
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