单选题
以下是窗体的Click事件过程：
Private Sub Form_Click( )
Dim a As Integer
a = 1
Do
a = a + 5
Loop Until a ＞ 18
Print a
End Sub
程序运行过程中单击窗体，输出结果是______。
【正确答案】
D
【答案解析】[解析] Do…Loop Until，先运行一次，再计算循环“条件”值，当条件为真时结束循环，否则执行循环体。当程序开始执行时，a=1，先运行一次，得a=1+5=6，再计算循环”条件”值，由于6＞18为假，执行循环体，a=6+5=11，由于11＞18为假，继续执行循环体，得a=11+5=16，由于16＞18为假，继续执行循环体，得a=16+5=21，21＞18为真，结束循环。故本题正确答案为D。