<variável id="Select_h1">Selecionar...Instrução Case</variável>
Define um ou mais blocos de instruções dependendo do valor de uma expressão.
Selecionar a expressão «Case»
Valores dos casos
Bloco de instruções
[ Valores dos casos2
Bloco de declaração]
[ Caso Else
Bloco de instruções]
Fim da seleção
expressão: Qualquer expressão que determine se o bloco de instruções que se segue à respetiva cláusula Case é executado.
valores: Qualquer lista de valores compatível com a expressão. O bloco de instruções que se segue à cláusula Case é executado se a expressão corresponder aos valores.
Sub ExampleRandomSelect
Dim iVar As Integer
iVar = Int((15 * Rnd) -2)
Select Case iVar
Case 1 To 5
Print "Número de 1 a 5"
Case 6, 7, 8
Print "Número de 6 a 8"
Case 8 To 10
Print "Maior que 8"
Case Else
Print "Fora do intervalo de 1 a 10"
End Select
End Sub
