While...Wend Statement

NÀr ett program pÄtrÀffar en While-sats testar det villkoret. Om villkoret Àr falskt fortsÀtter programmet direkt efter Wend-satsen. Om villkoret Àr sant sÄ körs loopen tills programmet hittar Wend och sedan hoppar tillbaka till While-satsen. Om villkoret fortfarande Àr sant sÄ körs loopen igen.

Till skillnad frÄn Do...Loop sÄ kan en While...Wend-loop inte avbrytas med Exit. Avsluta aldrig en While...Wend-loop med GoTo, eftersom det kan orsaka ett runtimefel.

AnvÀndningen av Do...Loop Àr mer flexibel och rekommenderas dÀrför.

Syntax:


While Condition [Statement] Wend

Exempel:


  Sub ExampleWhileWend
  Dim stext As String
  Dim iRun As Integer
      sText ="Det hÀr Àr en kort text"
      iRun = 1
      While iRun < Len(sText)
          If Mid(sText,iRun,1 )<> " " Then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )
          iRun = iRun + 1
      Wend
      MsgBox sText,0,"Kodad text"
  End Sub