下列程序输出的结果为 【13】 。
Private Sub Command1 Click
Dim a As Boolean
a=True
If a Then GoTo 11 Else GoTo 22
11:
Print"VC"
22:
Print"VC"
End Sub

患儿6岁，右下后牙肿疼两日。检查：远中面龋洞较深，叩(+)，松动2度，颊侧牙龈处有0.5mm×0.5mm脓肿。 X线示根吸收1/3，根分歧有低密度影。

本病例诊断是（）。

A．深龋

B．慢性牙髓炎急性发作

C．牙周脓肿

D．慢性根尖炎急性发作

E．根吸收