Provjera pomoću Select Case naredbe se vrši na slijedeći način:
Code
Dim Vrijednost As Boolean
Select Case Vrijednost
Case False
MsgBox("False")
Case True
MsgBox("True")
End Select
Kao što vidimo, u prvoj liniji naredbe definiramo vrijednost koju želimo provjeriti.
Code
Select Case Vrijednost
Blok ove provjere se završava sa naredbom End Select.
Usporedbu vrijednosti vršimo preko naredbe Case [Vrijednost_Za_Usporedbu].
A ispod usporedbe pišemo kod koji će se izvršiti ako usporedba bude točna.
Slijedi još jedan primjer korištenja Select Case naredbe.
Code
Dim Vrijednost As Integer
Select Case Vrijednost
Case 1
MsgBox("Los")
Case 2
MsgBox("Dovoljan")
Case 3
MsgBox("Dobar")
Case 4
MsgBox("Vrlodobar")
Case 5
MsgBox("Odlican")
Case Else
MsgBox("Neocjenjen")
End Select
U ovom primjeru ste vjerovatno primjetili liniju koda Case Else. Kod koji
se nalazi ispod ove linije koda biti ce izvršen samo ako nijedna prijašnja usporedba
nije bila točna.
