ເນື້ອໃນ

# ຄຳສັ່ງ While...Wend

ເມື່ອໂປຣແກຣມພົບຄຳສັ່ງ While, ມັນຈະກວດສອບເງື່ອນໄຂ. ຖ້າເງື່ອນໄຂເປັນ False, ໂປຣແກຣມຈະດຳເນີນການຕໍ່ໃນແຖວທີ່ຕາມຫຼັງຄຳສັ່ງ Wend ທັນທີ. ຖ້າເງື່ອນໄຂເປັນ True, ວົງຈອນຈະຖືກປະມວນຜົນຈົນກວ່າໂປຣແກຣມຈະພົບ Wend ແລ້ວຈຶ່ງກະໂດດກັບຄືນໄປຫາຄຳສັ່ງ While. ຖ້າເງື່ອນໄຂຍັງເປັນ True ຢູ່, ວົງຈອນຈະຖືກປະມວນຜົນອີກຄັ້ງ.

ຕ່າງຈາກຄຳສັ່ງ Do...Loop, ທ່ານບໍ່ສາມາດຍົກເລີກວົງຈອນ While...Wend ດ້ວຍຄຳສັ່ງ Exit. ຫ້າມອອກຈາກວົງຈອນ While...Wend ດ້ວຍ GoTo ເດັດຂາດ ເພາະອາດເຮັດໃຫ້ເກີດຂໍ້ຜິດພາດໃນເວລາດຳເນີນການ (run-time error).

ຄຳສັ່ງ Do...Loop ມີຄວາມຢືດຢຸ່ນກວ່າ While...Wend.

### ໄວຍາກອນ:

        While Condition [statements] Wend

### ຕົວຢ່າງ:

      Sub ExampleWhileWend
          Dim stext As String
          Dim iRun As Integer
          sText ="ນີ້ແມ່ນຂໍ້ຄວາມສັ້ນໆ"
          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,"Text encoded"
      End Sub

ຫົວຂໍ້ທີ່ກ່ຽວຂ້ອງ

ຄຳສັ່ງ Do...Until ຫຼື Do...While

ຄຳສັ່ງ Exit