产生胆汁的是

A．肝管
B．胆囊
C．胰腺
D．胆总管
E．肝细胞

有下列程序：
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】 。