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