Choose

Esta orden es una simplificación de Select Case, que nos ahorra bastantes lineas de código, la podemos usar algunas veces.

Value = Choose ( Choice , Result1 , Result2 [ , ... ] )

Choise: es una variable, que si vale 1 devolverá el Result1, si vale 2, devolverá el Result2, y si el valor supera a los resultados que escribamos, devuelve NULL

Fuente:
http://gambaswiki.org/wiki/lang/choose?l=es


Ejemplo de uso: Dia de la semana

Dim dia_semana As String

Dim x As Integer

Print "Di un numero entre el 1 y el 7:"

Input x

dia_semana = Choose(X, "Lunes", "Martes", "Miercoles", "Jueves", "Viernes", "Sabado", "Domingo")

Print dia_semana

En este ejemplo, al escribir 1 devuelve Lunes, si escribimos 8 devuelve NULL.

También se puede hacer con Select Case, pero es mucho más largo:

Dim dia_semana As String

Dim x As Integer

Print "Di un numero entre el 1 y el 7:"

Input x

Select x

Case 1

dia_semana = "lunes"

Case 2

dia_semana = "Martes"

Case 3

dia_semana = "Miercoles"

Case 4

dia_semana = "Jueves"

Case 5

dia_semana = "Viernes"

Case 6

dia_semana = "Sabado"

Case 7

dia_semana = "Domingo"

Case Else

Print Null

End Select

Print dia_semana

Enlace de descarga del codigo fuente: Enlace