本節課主要講解語法篇的第三課，VBA當中的do...loop循環語句的使用，來看看實際使用過程中如何實現數據循環遍歷。案例為將得分大於等於85分的自動勾選，效果如下：
代碼如下：
Sub doloop循環()
Dim rs%
rs = 1
Do
rs = rs + 1
If rs > 10 Then
Exit Sub
Else
If Cells(rs, 2) >= 85 Then Cells(rs, 3) = "√"
End If
Loop
End Sub
注意點：本節思路主要為定義一個變量，用變量遞增的方式來自動對變量變化後所代表的單元格進行判斷，當條件成立時執行對應結果。