Instructiunea de decizie If ..ThenElse (Daca..Atunci...In caz contrar)

Instructiunea de decizie If ..ThenElse (Daca..Atunci...In caz contrar)

Instructiunea If ..ThenElse are urmatoarea sintaxa:

If cond1 then

Bloc_instructiuni (a)

End If

sau

If cond1 then

Bloc_instructiuni1

Else  (b)

Bloc_instructiuni2

End If

In cazul (a) instructiunea evalueaza conditia cond1 si daca este adevarata executa blocul de instructiuni Bloc_instructiuni, iar daca este falsa atunci instructiunea nu executa nimic.

In cazul (b) instructiunea evalueaza conditia cond1 si daca este adevarata executa blocul de instructiuni Bloc_instructiuni1, iar daca este falsa executa blocul de instructiuni Bloc_instructiuni2.

Exemplu1 

Dim i as Integer , j as Integer , k as Integer

Dim u as String

Private Sub CommandButton1_Click()

i = 9

j = 100

k = 0

If i < 100 then

u = "a"

k = k + 1

else

u = "b"

j = j- 2

End If

End Sub

Tema: -Depanare cu F8

-Introduceti etichete pentru i,j si k

-Introduceti caseta de unde sa il citeasca pe i

-Introducerea unei etichete pentru a nota ce afiseaza alta eticheta (vizibil sau nu)

-Preluarea variabilelor j si k din celule

-Afisarea valorii lui u cu MsgBox.

-Colorarea butoanelor in funtie de valori

In cele ce urmeaza vom prezenta modul de executare al acestei secvente de cod. Initial se atribuie valorile i=9, j=100 si k=0, apoi se executa instructiunea If in modul urmator : se verifica daca i<100 si cum aceasta conditie este adevarata se face u="a" si k=1 ( se executa prima ramura a instructiuni If )

Exemplu2 

Dim i as Integer

Dim u as String

Private Sub CommandButton1_Click()

i = 5

If i < 3 then

u = 'a"

else

u = "b"

End If

If u = "a" then i = 1

End Sub

In cele ce urmeaza vom prezenta modul de executare al acestei secvente de cod. Se face i=5, apoi se executa prima instructiune If dupa cum urmeaza : se verifica daca i <3 si cum aceasta conditie nu este indeplinita se face u = "b" ( se executa a doua ramura a instructiuni If). A doua instructiune If nu se executa deoarece u = "b" si conditia nu este indeplinita (iar aceasta instructiune If nu are ramura Else).