Do While循环结构

tingfeng461002

        在VBA中，除了提供For Next循环结构之外，还提供了另外一种循环约翰森我：Do While循环结构。和For Next循环结构不同，Do While循环结构只有在满足指定条件时才执行。同样，在Do While循环结构中，可以随时使用fExit Do语句跳出循环结构。
        在VBA中，Do While循环语句具有两种语法结构形式：
        第一种语法结构形式是Do While-Loop结构。对应的语法结构如下：
        Do While condition
            instructions -1
            Exit Do
            instructions -2
            Loop
        第二种语法结构是Do-Loop While结构，其具体的语法结构如下：
        Do
            instructions -1
            Exit Do
            instructions -2
            Loop While condition
        这两种Do While结构的主要差别在于：第一种语法有可能从来都不执行循环内容；第二种语法结构至少执行一次循环内容。
        下面将使用一个简单的例子来说明Do While循环的用法。
        例如，用Do While循环结构计算前50个偶数的总和。
        步骤1、打开VBE编辑器，进入代码窗口，输入以下程序代码：        Sub SumEvenLoop()
        Dim intSumEven As Integer
        Dim intCount As Integer
        Dim strMsg as String
        intSumEven = 0
        intCount = 50
        strMsg = "前50个偶数的总和是："
        Do While intCount >= 0
            intSumEven = intSumEven + intCount
            intCount = intCount - 2
            Loop
        strMsg = strMsg & intSumEven
        MsgBox strMsg
        End Sub
        步骤2、运行程序结果。按F5键，显示结果“前50个偶数的总和是：650”。