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

世界煤炭储量在世界能源总储量中占90%，按目前规模开采可持续200年左右。据19世纪80年代初世界能源会议等组织的资料，世界煤炭资源地质储量为14.3万亿吨，其中探明储量为3.5万亿吨，约占24.5%；在总储量中硬煤占75%，褐煤占25%。硬煤可采储量以美国、俄罗斯、中国最为丰富，分别占世界总量的24.8%、21.5%、19.6%，共占。

在世界煤炭资源地质储量中，未探明储量占总储量的（）。

A．25.1%

B．74.9%

C．75.5%

D．25%