Choose Function
ΠΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π²ΡΠ±ΡΠ°Π½Π½ΠΎΠ΅ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· ΡΠΏΠΈΡΠΊΠ° Π°ΡΠ³ΡΠΌΠ΅Π½ΡΠΎΠ².
Π‘ΠΈΠ½ΡΠ°ΠΊΡΠΈΡ
Choose (ΠΠ½Π΄Π΅ΠΊΡ, ΠΠ°ΡΠΈΠ°Π½Ρ1[, ΠΠ°ΡΠΈΠ°Π½Ρ2, ... [, ΠΠ°ΡΠΈΠ°Π½Ρ_n]])
ΠΠ°ΡΠ°ΠΌΠ΅ΡΡΡ:
ΠΠ½Π΄Π΅ΠΊΡ. Π§ΠΈΡΠ»ΠΎΠ²ΠΎΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅, ΡΠΊΠ°Π·ΡΠ²Π°ΡΡΠ΅Π΅, ΠΊΠ°ΠΊΠΎΠ΅ ΠΈΠ· Π·Π½Π°ΡΠ΅Π½ΠΈΠΉ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅ΡΡΡ.
ΠΠ°ΡΠΈΠ°Π½Ρ1. ΠΡΠ±ΠΎΠ΅ Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠ΅, ΡΠ²Π»ΡΡΡΠ΅Π΅ΡΡ ΠΎΠ΄Π½ΠΈΠΌ ΠΈΠ· Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΡΡ Π²Π°ΡΠΈΠ°Π½ΡΠΎΠ².
Π€ΡΠ½ΠΊΡΠΈΡ Choose Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ Π·Π½Π°ΡΠ΅Π½ΠΈΠ΅ ΠΈΠ· ΡΠΏΠΈΡΠΊΠ° Π²ΡΡΠ°ΠΆΠ΅Π½ΠΈΠΉ Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ Π·Π½Π°ΡΠ΅Π½ΠΈΡ ΠΠ½Π΄Π΅ΠΊΡ. ΠΡΠ»ΠΈ ΠΠ½Π΄Π΅ΠΊΡ = 1, ΡΡΠ° ΡΡΠ½ΠΊΡΠΈΡ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΠΏΠ΅ΡΠ²ΡΠΉ Π²Π°ΡΠΈΠ°Π½Ρ ΠΈΠ· ΡΠΏΠΈΡΠΊΠ°; Π΅ΡΠ»ΠΈ ΠΠ½Π΄Π΅ΠΊΡ = 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, "ΠΡΡΡΡΡΠΉ ΡΠΎΡΠΌΠ°Ρ", "Π‘ΠΎΡ ΡΠ°Π½ΠΈΡΡ ΡΠΎΡΠΌΠ°Ρ", "Π‘ΠΈΡΡΠ΅ΠΌΠ½ΡΠΉ ΡΠΎΡΠΌΠ°Ρ")
End Function