进行判断循环--While…Wend 语句

时　间:2017-05-14 08:13:26
作　者:杨雪   ID：42182  城市：南京
摘　要:进行判断循环，除了使用Do Until…Loop 语句外，还可以使用While…Wend 语句
正　文:

进行判断循环，除了使用Do Until…Loop 语句外，还可以使用While…Wend 语句，其具体语法：

While[执行循环的条件]

        [循环体]

Wend

使用While…Wend 语句，会先判断是否满足指定的条件，然后执行循环体，循环体可能一次也不执行。

例：编写VBA代码，获取俩个正整数，并获取其最大值，通过判断循环计算最小公倍数，具体的VBA 代码如下：

'通过判断循环求最小公倍数
Sub 最小公倍数()
    Dim Num1 As Integer
    Dim Num2 As Integer
    Dim Num As Integer
    Dim n As Integer
    '获取两个正整数
    Num1 = InputBox("请输入第一个正整数：")
    Num2 = InputBox("请输入第二个正整数：")
    '获取两个正整数的最大值
    If Num1 > Num2 Then
        Num = Num1
    Else
        Num = Num2
    End If
    '计算最小公倍数以及循环次数
    While Int(Num / Num1) <> Num / Num1 or Int(Num / Num2) <> Num / Num2
        Num = Num + 1
        n = n + 1
    Wend
    MsgBox Num1 & "与" & Num2 & "的最小公倍数为：" _
    & Num & vbCrLf & "循环次数为：" & n
End Sub

执行过程

保存编写的VBA代码，然后按F5键运行“最小公倍数”过程，俩次运行该过程的结果，其中第二次运行时如图所示，执行循环的次数为0.