Dim counter ,num
counter=0
num=9
'MsgBox num
Do Until num=6'直到条件为真时退出循环
num=num-1
counter=counter+1
'If num<8 Then Exit Do
MsgBox 001
Loop
MsgBox counter
转载于:https://blog.51cto.com/chaiyesongtest/1390846
Dim counter ,num
counter=0
num=9
'MsgBox num
Do Until num=6'直到条件为真时退出循环
num=num-1
counter=counter+1
'If num<8 Then Exit Do
MsgBox 001
Loop
MsgBox counter
转载于:https://blog.51cto.com/chaiyesongtest/1390846