实例2-18 While...End While循环语句的使用

该实例实现步骤如下。

1 创建窗体

在本章的项目chapter2中，右键单击解决方案资源管理器中项目名下面对应节的文件夹“控制流程”，在弹出菜单中选择“添加”→“Windows窗体”菜单命令，在弹出的对话框中输入窗体名WEWhileFrm，单击“添加”按钮完成窗体的创建。

2 添加控件

在窗体中添加一个Listbox列表框，用于显示记录。

3 添加代码

双击窗体进入窗体的代码编辑器，在窗体的Load事件中添加代码2-22中的代码。

        01  Public Class WEWhileFrm
        02      Private Sub WEWhileFrm_Load(ByVal sender As System.Object, ByVal e As
    System.EventArgs) Handles MyBase.Load
        03          Dim i As Integer = 1
        04          While i < 100
        05              '向ListBox1中添加信息
        06              Me.ListBox1.Items.Add("The Value of i is " & i)
        07              If i = 10 Then
        08                  Exit While '退出While循环
        09              End If
        10              i = i + 1

        11              End While
        12          End Sub
        13      End Class

代码2-22的执行步骤如下：

① 第3行代码定义了一个变量i，并赋予初值1；

② 第4行代码根据当前i值，判断i<100是否为真，若为真则执行循环内的语句；若为假，则直接跳到End While循环后面，执行其后面的代码；

③ 第6行代码向listbox1中添加一条信息包括字符串“The Value of i is”和当前i的值；

④ 第7行到第9行代码判断当前循环的i的值是否为10，若为10则退出While循环，执行End While循环后面的代码；若不为10则接着执行第⑤步；

⑤ 第10行和第11行代码将i的值加1，并返回到第②步。

4 运行结果

按F5键，运行程序，结果如图2-25所示。

5.循环嵌套

在一个循环体内嵌套另外的循环语句称为循环嵌套。内层循环控制变量一般与外层循环控制变量不同，但其循环规则相同。以上几种循环控制语句可以互相嵌套，即在一个循环体内部又可以出现另一循环，这种嵌套在理论上来说可以是无限的。但要注意必须是一个循环完整地套住另一个循环。

下面以实例说明循环嵌套的使用。