牛胎毛滴虫（）

A.经口感染

B.经皮肤感染

C.经蜘蛛昆虫传播

D.接触感染

E.自身感染下列寄生虫的感染途径是

下面程序运行后，单击命令按钮，输出的结果是______。
Private Sub Command1_Click()
Dim a%(1 To 5)，i%，s#
　　For i=1 To 5
　　　a(i)=i
　　 Next
　　s=Fun(A)
　　Print "s=";s;
End Sub
Function Fun(a()As Integer)
Dim t#．i%
　　t=1
　　For i=LBound(A) To UBound(A)
　　　t=t*a(i)
　　Next
　　Fun=t
End Function