Habang...Wend Statement

Kapag nakatagpo ang isang programa a Habang pahayag, sinusubok nito ang kundisyon. Kung ang kondisyon ay Mali , ang programa ay patuloy na direktang sumusunod sa Wend pahayag. Kung ang kondisyon ay totoo , ang loop ay isinasagawa hanggang sa mahanap ng program Wend at pagkatapos ay tumalon pabalik sa Habang pahayag. Kung ang kondisyon pa rin totoo , ang loop ay naisakatuparan muli.

Hindi tulad ng Gawin...Loop pahayag, hindi mo maaaring kanselahin ang a Habang...Wend loop na may Lumabas . Huwag kailanman lalabas a Habang...Wend loop na may GoTo , dahil maaari itong magdulot ng error sa run-time.

A Gawin...Loop ay mas nababaluktot kaysa sa a Habang...Wend.

    While Condition [statements] Wend

  Sub ExampleWhileWend
      Dim stext As String
      Dim iRun As Integer
      sText ="Ito ay isang maikling teksto"
      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,"Naka-encode ang text"
  End Sub