Choose Function
āĻāĻ°ā§āĻā§āĻŽā§āĻ¨ā§āĻā§āĻ° āĻ¤āĻžāĻ˛āĻŋāĻāĻž āĻšāĻ¤ā§ āĻ¨āĻŋāĻ°ā§āĻŦāĻžāĻāĻŋāĻ¤ āĻŽāĻžāĻ¨ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§āĨ¤
āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸:
Choose (Index, Selection1[, Selection2, ... [,Selection_n]])
āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°:
āĻāĻ¨āĻĄā§āĻā§āĻ¸: āĻāĻāĻāĻŋ āĻ¸āĻāĻā§āĻ¯āĻžāĻ¸ā§āĻāĻ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ āĻ¯āĻž āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°āĻž āĻšāĻŦā§ āĻāĻŽāĻ¨ āĻāĻāĻāĻŋ āĻŽāĻžāĻ¨ āĻāĻ˛ā§āĻ˛ā§āĻ āĻāĻ°ā§āĨ¤
āĻ¨āĻŋāĻ°ā§āĻŦāĻžāĻāĻ¨1: āĻ¯ā§āĻā§āĻ¨ā§ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ āĻ¯āĻž āĻ¸āĻŽā§āĻāĻžāĻŦā§āĻ¯ āĻĒāĻāĻ¨ā§āĻĻā§āĻ° āĻāĻāĻāĻŋ āĻ§āĻžāĻ°āĻŖ āĻāĻ°ā§āĨ¤
Choose āĻĢāĻžāĻāĻļāĻ¨āĻŋāĻ āĻāĻ¨āĻĄā§āĻā§āĻ¸ āĻŽāĻžāĻ¨ā§āĻ° āĻāĻĒāĻ° āĻāĻŋāĻ¤ā§āĻ¤āĻŋ āĻāĻ°ā§ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ā§āĻ° āĻāĻāĻāĻŋ āĻ¤āĻžāĻ˛āĻŋāĻāĻž āĻĨā§āĻā§ āĻāĻāĻāĻŋ āĻŽāĻžāĻ¨ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤ āĻ¯āĻĻāĻŋ āĻāĻ¨āĻĄā§āĻā§āĻ¸ = 1 āĻšā§, āĻ¤āĻžāĻšāĻ˛ā§ āĻĢāĻžāĻāĻļāĻ¨āĻāĻŋ āĻ¤āĻžāĻ˛āĻŋāĻāĻžāĻ° āĻĒā§āĻ°āĻĨāĻŽ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨āĻāĻŋ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§, āĻ¯āĻĻāĻŋ āĻāĻ¨āĻĄā§āĻā§āĻ¸ i = 2 āĻšā§, āĻ¤āĻžāĻšāĻ˛ā§ āĻĻā§āĻŦāĻŋāĻ¤ā§ā§ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨āĻāĻŋ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§, āĻāĻŦāĻ āĻ āĻ¨ā§āĻ°ā§āĻĒāĨ¤
āĻ¯āĻĻāĻŋ āĻāĻ¨āĻĄā§āĻā§āĻ¸ā§āĻ° āĻŽāĻžāĻ¨ ā§§ āĻāĻ° āĻāĻžāĻāĻ¤ā§ āĻā§āĻ āĻ āĻĨāĻŦāĻž āĻ¤āĻžāĻ˛āĻŋāĻāĻžāĻā§āĻā§āĻ¤ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ā§āĻ° āĻ¸āĻāĻā§āĻ¯āĻžāĻ° āĻāĻžāĻāĻ¤ā§ āĻŦā§ āĻšā§ āĻ¤āĻžāĻšāĻ˛ā§ āĻĢāĻžāĻāĻļāĻ¨āĻāĻŋ āĻāĻāĻāĻŋ āĻ¨āĻžāĻ˛ āĻŽāĻžāĻ¨ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤
āĻŦāĻŋāĻāĻŋāĻ¨ā§āĻ¨ āĻ¸ā§āĻā§āĻ°āĻŋāĻ āĻĨā§āĻā§ āĻāĻāĻāĻŋ āĻ¸ā§āĻā§āĻ°āĻŋāĻ āĻ¨āĻŋāĻ°ā§āĻŦāĻžāĻāĻ¨ āĻāĻ°āĻžāĻ° āĻāĻ¨ā§āĻ¯ āĻ¨āĻŋāĻā§āĻ° āĻāĻĻāĻžāĻšāĻ°āĻŖāĻāĻŋ āĻ¨āĻŋāĻ°ā§āĻŦāĻžāĻāĻ¨ āĻĢāĻžāĻāĻļāĻ¨āĻāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§ āĻĨāĻžāĻā§ āĻ¯āĻž āĻĻā§āĻŦāĻ°āĻž āĻāĻāĻāĻŋ āĻŽā§āĻ¨ā§ āĻāĻ āĻŋāĻ¤ āĻšā§:
āĻāĻĻāĻžāĻšāĻ°āĻŖ:
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