Innhald

# Do...Loop-uttrykket

Gjentek uttrykka mellom Do og Loop så lenge vilkåret er SANN eller til vilkåret vertSANN.

### Syntaks:

      Do {While | Until} condition = True
      ' Do While: Blokka med uttrykket vert repetert så lenge vilkåret er SANN
      ' Do Until: Blokka med uttrykket vert repetert så lenge vilkåret er USANN
         statements
         [Exit Do]
         statements
      Loop

      Do
         statements
         [Exit Do]
         statements
      ' Loop While: Blokka med uttrykket vert repetert så lenge vilkåret er SANN
      ' Loop Until: Blokka med uttrykket vert repetert til vilkåret er SANN
      Loop {While | Until} condition = True

### Parametrar:

Uttrykket Do … Loop utfører ei løkke (loop) så lenge eller til eit bestemt vilkår er SANN. Vilkåret for å avslutta sløyfa må skrivast inn anten etter uttrykket Do eller Loop. Eksempelet ovanfor viser gyldige kombinasjonar.

condition: Ei samanlikning, eit nummerisk uttrykk eller eit BASIC-uttrykk som anten er Sann eller Usann.

statements: Uttrykk som du vil taka oppatt medan eller til eit vilkår er Sann.

Bruk uttrykket Exit Do for å avslutta løkka utan vilkår. Du kan setja inn dette uttrykket kvar som helst i eit Do … Loop-uttrykk. Du kan også definera eit «exit»-vilkår med If … Then set opp slik:

      Do...
         statements
         If condition = True Then Exit Do
         statements
      Loop...

### Eksempel:

    Sub ExampleDoLoop
        Dim sFile As String
        Dim sPath As String
        sPath = "c:\"
        sFile = Dir$( sPath ,22)
        If sFile <> "" Then
            Do
                MsgBox sFile
                sFile = Dir$
            Loop Until sFile = ""
        End If
    End Sub

Liknande emne

For, Select Case or While-uttrykk.

Iif eller Switch-funksjonar