早期釉质龋病损区分层不包括（）

A.表层

B.透明层

C.暗层

D.脂肪变性层

E.病损体层

有如下程序：
Private Sub Form_Click()
　Dim Check,Counter
　Check=True
　Counter=0
　Do
　　Do While Counter＜20
　　　Counter=Counter+1
　　　If Counter=10 Then
　　　　Check=False
　　　Exit Do
　　End　If
Loop
Loop Until Check=False
Print Counter,Check
End　Sub
程序运行后，单击窗体，输出结果为( )。

A．15 0

B．20　-1

C．10 True

D．10 False