阅读下面的程序：
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

在预制桩打桩过程中，如发现贯入度一直骤减，说明（）。

A.桩尖破坏

B.桩身破坏

C.桩下有障碍物

D.遇软土层