Do Until...Loop 循环

本章节我们要讲述 Do...Loop 循环，这种循环执行到满足一定的条件时结束。

Do Until...Loop 循环

Do Until...Loop 循环的基本语法如下：

Do Until 条件
   在满足条件之前执行的语句
Loop

举个例子。
1. 新建一个 Form。
2. 添加一个 Button 控件，将其 Name 属性设置为btnLoop，Text 属性设置为 Loop。
3. 添加一个 ListBox 控件，将其 Name 设置为 lstLoop。
4. 双击 Button 控件，进入代码编辑器，然后加入下面红色代码如下：

Public Class Form1
    Private Sub btnLoop_Click(ByVal sender As System.Object, 
    ByVal e As System.EventArgs) Handles btnLoop.Click
        Dim number As Integer = 8
        Do Until number <= 5
            number -= 1
            lstLoop.Items.Add(number)
        Loop
    End Sub
End Class

5. 然后 F5 运行，点击 btnLoop 按钮，你会看到在 ListBox 显示的数字是

7
6
5

这段代码的意思是，当number 大于5的情况下，执行 Do Until...Loop 中的代码，即每次 number 减 1，number -= 1 等同于number = number - 1 ，然后将减得的数添加到 ListBox 里，不断循环执行，直到 number 小于等于 5，停止循环。

下一节我们讲解 Do While...Loop 循环，此循环和 Do Until...Loop 循环相反，是在满足条件的情况下执行循环，而不是结束循环。

编者或作者: 我有闲    收录日期: 2008-10-22
参考或来源:

上一页: For Each...Next 循环语句 返回上级目录: 流程控制 下一页: Do While...Loop 循环