Question

VB中的Do...Loop语句怎么使用？

我是初学者，有些还不太懂，希望高手能给我讲下Do...Loop语句的用途和用法（最好有代码例子），简单明了易懂就OK了！

Answer 1

Do...Loop 语句
当条件为 True 时，或直到条件变为 True 时，重复执行一个语句块中的命令。

语法

Do [{While | Until} condition]
[statements]
[Exit Do]
[statements]

Loop

Do...Loop 语句示例
本示例示范如何使用 Do...Loop 语句。内层的 Do...Loop 语句循环到第 10 次时将标志值设置为 False，并用 Exit Do 语句强制退出内层循环。外层循环则在检查到标志值为 False 时，马上退出。

Dim Check, Counter
Check = True: Counter = 0 ' 设置变量初始值。
Do ' 外层循环。
Do While Counter < 20 ' 内层循环。
Counter = Counter + 1 ' 计数器加一。
If Counter = 10 Then ' 如果条件成立。
Check = False ' 将标志值设成 False。
Exit Do ' 退出内层循环。
End If
Loop
Loop Until Check = False ' 退出外层循环。

Answer 2

a = 0
do until a > 100 '如果a小于100 就执行下面的代码(a=a+1)
a = a + 1
loop '结束 do until 循环

这样下来，在前面已经声明了a=0
当a=0 小于100的时候执行 a=a+1的循环体 （0+1 =1）
执行了第一次循环体时 a=a+1 ,a就等于1
每次执行的时候 a 在原基础上 +1
当a 相加到 101 的时候 满足 a > 100了
就结束循环体 跳出循环了

Answer 3

do '开始执行代码
a=a+1
loop while a<5 '当a<5时再回去执行do下面的代码。

只要while后面的条件成立，就会不断的执行do下面的代码。

Answer 4

告诉你个最简单的方法！
DO
...
if (退出循环条件) then
exit do
end if
...
LOOP

Answer 5

看考试教程吧，写得很清除了（链接给的是循环结构部分的讲解）：

http://www.examda.com/ncre2/VB/fudao/20070213/114159965-3.html

有图也有实例，看不明白就开个vb自己试一下，慢慢体会吧。