Provera pomoću Select Case naredbe se može izvesti na sledeći način:
Dim Vrednost kao Boolean
Select Case Vrednost
Case False
MsgBox("False")
Case True
MsgBox("True")
End Select
Kao što vidite, u prvoj liniji komande se definiše vrednost koju želimo da proverimo.
Select Case Vrednost
Blok ove provere se završava sa komandom End Select.
Poređenje vrednosti se obavlja preko komande Case [Vrednost_Za_Poređenje].
Ispod poređenja se piše kod koji će se izvršiti ako poređenje bude tačno.
Sledi još jedan primer upotrebe Select Case komande.
Dim Vrednost kao Integer
Select Case Vrednost
Case 1
MsgBox("Los")
Case 2
MsgBox("Dovoljan")
Case 3
MsgBox("Dobar")
Case 4
MsgBox("Vrlodobar")
Case 5
MsgBox("Odlican")
Case Else
MsgBox("Neocenjen")
End Select
U ovom primeru obratite pažnju na liniju koda Case Else. Kod koji se nalazi ispod ove linije koda ce biti izvršen samo ako nijedno prethodno poređenje nije bilo tačno.
© Sva prava pridržana, Kompjuter biblioteka, Beograd, Obalskih radnika 4a, Telefon: +381 11 252 0 272 |
||