Ebben a példában a hét napját egy szám jelöli, így a NapNeve változó értéke Vasárnap lesz, ha a változó 1, Hétfő, ha 2 stb.

A Select parancs nem csak az 1:1 értékadásoknál használható -- a Case feltételben megadhatunk összehasonlító operátorokat vagy kifejezéslistákat is. A következő példa bemutatja a legfontosabb változatokat:

Select Case Valtozo



Case 1 To 5



   ' ... A Valtozo értéke 1-5 lehet.



Case 6, 7, 8



   ' ... A Valtozo értéke 6, 7 vagy 8.



Case Valtozo > 8 And Valtozo < 11



   ' ... A Valtozo nagyobb 8-nál, de kisebb 11-nél.



Case Else



   ' ... Minden más eset



   

End Select

Ciklusok

A ciklus a megadott alkalommal hajtja végre az adott kódrészletet. A ciklusokat létrehozhatjuk úgy is, hogy nincs megadva, hányszor fussanak le.

For...Next

A For...Next ciklus adott számú végrehajtást végez. A ciklusszámláló adja meg azt a számot, ahányszor a ciklusnak le kell futnia. A

Dim I 

For I = 1 To 10

   ' ...  Ciklusmag

Next I

példában az I a ciklusszámláló, amelynek kezdeti értéke 1. A számláló minden menetben eggyel nő. Amikor az I változó értéke 10 lesz, akkor a ciklus megáll.

Ha a ciklusváltozót nem eggyel akarjuk növelni, használjuk a Step utasítást:

Dim I 



For I = 1 To 10 Step 0.5



   ' ... Ciklusmag



Next I

Az előző példában a számláló értéke minden menet végén 0.5-tel nő, és a ciklus 19-szer lesz végrehajtva.

Használhatunk negatív lépést is.

Dim I 



For I = 10 To 1 Step -1



   ' ... Ciklusmag



Next I

Ebben a példában a számláló 10-től kezd számlálni, és eggyel csökken minden menet végén, amíg értéke 1 nem lesz.

Az Exit For utasítással kiléphetünk a For ciklusból. A következő példában a ciklus az ötödik menetben megszakad:

Dim I 



For I = 1 To 10



   If I = 5 Then 

      Exit For

   End If



   ' ... Ciklusmag



Next I

Megjegyzés - A VBA For Each...Next ciklusa nem támogatott a StarOffice Basic programban.