Isi
Indeks 🔎︎

# 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