IBM Lotus Symphony


While...Wend ステートメント [実行時]

プログラムの実行が While ステートメントに差し掛かると、ループ条件の判定が行われます。この判定結果が False であれば、Wend ステートメント以降のプログラムコードが実行されます。判定結果が True であれば、Wend まで続くループ部のプログラムコードを実行してから、再度 While ステートメントの位置に実行行が戻ります。こうした判定結果が True であり続ける限り、ループ部が繰り返し実行されます。

Do...Loop とは異なり、While...WendExit でループを中断することができません。また 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


製品フィードバック | その他の資料 | 商標