Do...Loop

解说

条件变为True（真）之前，或为True（真）期间，反复执行[statements]。

“While”是在指定的条件为True（真）期间反复进行处理，如果为False（假），则移至Loop以后的行。

“Until”是在指定的条件为False（假）期间反复进行处理，如果为True（真），则移至Loop以后的行。

如果省略{While | Until} 条件，则将进行无限循环。

如果为Do指定条件，则为前条件，如果为Loop指定条件，则为后条件。

如果在[statements]内执行“Exit Do”,则将省略Do Loop处理。

对处理时间较短的指令进行反复处理时，将占用CPU，因此，当前正在运行多重任务之外的其它任务将难以处理。为了避免发生此情况，请在反复处理期间输入Delay或Wait指令。执行Delay、Wait指令期间，将解除CPU占用，从而便于处理其它任务。

相关项目

Exit、 For...Next

注意事项

-

应用示例

'!TITLE "执行判定反复（重复）"
' 反复执行处理，直至aaa大于10
Sub Sample_DoLoop

  Dim aaa As Integer
  Dim bbb As Integer

  aaa = 1
  bbb = 0

  ' 1至10的求和处理
  Do

    bbb = bbb + aaa
    aaa = aaa + 1

  ' 执行循环，直至aaa大于10
  Loop Until aaa > 10

  ' 在讯息输出视窗中显示"55"
  PrintDbg bbb

End Sub