While...Wend Statement
ํ๋ก๊ทธ๋จ์ While ๋ฌธ์ ๋ง๋ ๊ฒฝ์ฐ ์กฐ๊ฑด์ ํ ์คํธํฉ๋๋ค. ์กฐ๊ฑด์ด False์ผ ๊ฒฝ์ฐ Wend ๋ฌธ์ ๋ฐ๋ก ๋ค์๋ถํฐ ํ๋ก๊ทธ๋จ ์คํ์ด ๊ณ์๋ฉ๋๋ค. ์กฐ๊ฑด์ด True์ผ ๊ฒฝ์ฐ Wend๊ฐ ์๋ ๊ณณ๊น์ง ๋ฃจํ๊ฐ ์คํ๋ ๋ค์ ๋ค์ While ๋ฌธ์ผ๋ก ๋๋์๊ฐ๋๋ค. ์กฐ๊ฑด์ด ์ฌ์ ํ True์ผ ๊ฒฝ์ฐ ๋ฃจํ๊ฐ ๋ค์ ์คํ๋ฉ๋๋ค.
Do...Loop์ ๋ฌ๋ฆฌ While...Wend ๋ฃจํ๋ Exit๋ก ์ทจ์ํ ์ ์์ต๋๋ค. ๋ํ While...Wend ๋ฃจํ๋ฅผ GoTo๋ก ์ข ๋ฃํ ๊ฒฝ์ฐ ๋ฐํ์ ์ค๋ฅ๊ฐ ๋ฐ์ํ ์ ์์ผ๋ฏ๋ก ์ฃผ์ํด์ผ ํฉ๋๋ค.
์ ์ฐ์ฑ์ด ๋ ๋ฐ์ด๋๋ค๋ ์ ์์ Do...Loop๋ฅผ ์ฌ์ฉํ๋ ๊ฒ์ด ์ข์ต๋๋ค.
๊ตฌ๋ฌธ:
While Condition [Statement] Wend
์:
Sub ExampleWhileWend
Dim stext As String
Dim iRun As Integer
sText ="This is a short 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,"Text encoded"
End Sub