循环语句，直到满足某个条件
Sub 事例() Dim a% Do a = a + 1 If a > 10 Then MsgBox a & "大于10" Exit Do End If Loop End Sub
do..loop
原文：http://www.cnblogs.com/qcl_008/p/4810495.html
