IBM Lotus Symphony


Instrução Select...Case [Tempo de Execução]

Define um ou mais blocos de instrução dependendo do valor de uma expressão.

Sintaxe:

Select Case condition Case expression Statement Block [Case expression2 Statement Block][Case Else] Statement Block End Select

Parâmetros:

Condition: Qualquer expressão que controle se o bloco de instruções que permite a respectiva cláusula Case é executada.

Expression: Qualquer expressão compatível com a expressão do tipo Condition. O bloco de instrução que segue a cláusula Case será executado, se Condition corresponder a Expression.

Exemplo:

Sub ExampleRandomSelect

Dim iVar As Integer

iVar = Int((15 * Rnd) -2)

Select Case iVar

Case 1 To 5

Print "Number from 1 to 5"

Case 6, 7, 8

Print "Number from 6 to 8"

Case 8 To 10

Print "Greater than 8"

Case Else

Print "Out of range 1 to 10"

End Select

end sub


Feedback do Produto | Documentação Adicional | Marcas Registradas