Pernyataan While...Wend

Ketika sebuah program menemukan pernyataan While, ia menguji kondisi tersebut. Jika kondisinya salah, program akan langsung mengikuti pernyataan Wend. Jika kondisinya Benar, loop dijalankan sampai program menemukan Wend dan kemudian melompat kembali ke pernyataan While. Jika kondisi masih Benar, loop dijalankan lagi.

Berbeda dengan pernyataan Do...Loop, Anda tidak dapat membatalkan pernyataan While...Wend perulangan dengan Exit. Jangan pernah keluar dari While...Wend perulangan menggunakan GoTo , karena ini dapat menyebabkan kesalahan run-time.

A Do...Loop lebih fleksibel daripada While...Wend.

Sintaksis:


Kondisi While [Statement] Wend

Contoh:


  Sub ExampleWhileWend
  Dim stext As String
  Dim iRun As Integer
      sText ="Ini adalah teks pendek"
      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,"Teks dienkode"
  End Sub

Mohon dukung kami!