VBA Juhtimine
' Järelkontrolliga While kordus
Dim juku As Shape
Set juku = Shapes("Juku")
Do
juku.IncrementTop 10
paus 0.1
Loop While juku.Top < Shapes("piir").Top
End Sub
lõpp
piir
elkontrolliga Until-kordus
laused
väär
op Until tingimus tõene
järgmine
auseid korratakse seni, kuni tingimus saab tõeseks
Exit Sub või Exit Function, End
uidas käitub programm selle
l, kui Juku on juba ületanud
piir").Top
Do ... Loop-lause. Eelkontrolliga kordus
Eelkontrolliga While-kordus Eelkontrolliga Unt