Instructiunea de decizie Select Case . End Select

Instructiunea de decizie Select Case . End Select

Instructiunea Select Case ... End Select are urmatoarea sintaxa:

Select Case val

Case val1 , val2 ,.. : Bloc_instructiuni1

Case lis1 , lis2 , Bloc_instructiuni2

Case str1 , str2 ,.. : Bloc_instructiuni3

Case Else

Bloc_instructiuni4 

End Select

unde val este o variabila iar val1, val2, ....., lis1,lis2, ....., str1, str2 reprezinta valori de acelasi tip cu cel al variabilei val sau expresii care returneaza un rezultat de acelasi tip cu cel al variabilei val.

Aceasta instructiune se executa astfel: daca val se gaseste in lista sau intervalul de valori sau expresii val1, val2, . atunci se executa Bloc_instructiuni1; daca val se gaseste in lista sau intervalul de valori sau expresii lis1, lis2, . atunci se executa Bloc_instructiuni2 etc.; daca val nu se gaseste in nici una dintre aceste liste de valori instructiunea Select Case nu executa nimic.

Exemplu 

Dim i as Integer

Dim p as Boolean

Dim u as String

Dim v as String

Private Sub CommandButton1_Click()

i = 35

Select Case i

Case 10 , 20 : p = True

Case 30 to 50 : u = "abcd" `verifica daca iI

Case 60 , 70 : v = False

Case Else

End Select

End Sub

TEMA: -Sa se schimbe numele butonului in "Select Case".

-Sa se introduca de la tastatura valoarea lui i.

-Sa se afiseze cu MsgBox daca i a indeplinit sau nu conditia.

-Butonul "Select Case" sa isi schimbe culoarea in functie de rezultat.

Modul de executare al secventei de cod il vom prezenta in cele ce urmeaza. Se face i = 35 apoi se executa instructiunea Select Case altfel: se verifica daca variabila i este egala cu 10 sau cu 20, dar cum i = 35 se continua executarea instructiuni verificandu-se daca variabila i apartine intervalului (30,50]; cum i este egal cu 35 se face u = "abcd". Similar se executa instructiunea CASE pana la capat.