Option ExplicitSub DoWhile()    Dim Num As Integer    Num = 1    Do While Num <= 10        MsgBox "While，过程中" & Num        Num = Num + 1    Loop    '当数值满足条件时，运行，并且Num并没有增量，所以无法停止     MsgBox "While，过程后" & Num    Do Until Num >= 9        MsgBox "Until,过程中" & Num        Num = Num - 1  '        If Num < 5 Then'        End If    Loop    '当数值不满足条件时，运行，并且Num没有增量，所以无法跳出循环目标是可以让数据从1循环11，然后再从11循环到5，然后用条件代码，跳出在想怎么可以让If和Do While和Do Until联用,注释掉的代码，有没有有思路的小伙伴，后四行好像有点问题