有下列程序：
Private Sub Command1_Click()
Dim i As Integer
Dim arrY(5)As Integer
For i = 0 To 4
arrY (i) = 5
Next i
Dim arrZ(5)As String
For i = 0 To 4
arrZ(i)= "hello"
Next i
Dim arrX(2)AS Variant
arrX(1)=arrY()
arrX(2)=arr2()
Text1.Text=arrX(1) (2)
Text2.Text=arrX(2) (3)
End Sub
程序运行后，单击命令按钮，在文本框Text1和Text2中分别显示的内容是 【14】 和 【15】 。

患者女，30岁，固定义齿粘固后半个月，近2天刷牙时有少量出血。无其他症状。查：缺失，为桥基牙，冠边缘在龈缘下与牙体组织贴合良好，之间牙线可顺利通过，乳突处有少量食物滞留，龈红肿。引起牙龈出血的原因是（）。

A.冠边缘刺激牙龈

B.接触点松

C.冠外形不好

D.患者未认真刷牙

E.对有楔入式牙尖