Select...Case Statement
Meghatároz egy vagy több utasĂtásblokkot egy bizonyos kifejezĂ©s Ă©rtĂ©ke alapján.
Szintaxis:
Select Case feltĂ©tel Case kifejezĂ©s UtasĂtásblokk [Case kifejezĂ©s2 UtasĂtásblokk][Case Else] UtasĂtásblokk End Select
Paraméterek:
FeltĂ©tel: Bármilyen kifejezĂ©s, amely meghatározza, hogy az adott Case utasĂtás utáni utasĂtásblokk vĂ©gre legyen-e hajtva.
KifejezĂ©s: A FeltĂ©tel tĂpusĂş kifejezĂ©ssel kompatibilis kifejezĂ©s. A Case utasĂtást követĹ‘ utasĂtásblokk akkor hajtĂłdik vĂ©gre, ha a FeltĂ©tel megfelel a KifejezĂ©s elemnek.
PĂ©lda:
Sub ExampleRandomSelect
Dim iVar As Integer
iVar = Int((15 * Rnd) -2)
Select Case iVar
Case 1 To 5
Print "1 és 5 közötti szám"
Case 6, 7, 8
Print "6 és 8 közötti szám"
Case 8 To 10
Print "Nagyobb mint 8"
Case Else
Print "1-10 tartományon kĂvĂĽl esik"
End Select
End Sub