下面程序运行后，单击命令按钮，输出的结果是______。 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

关于重（装）量差异叙述错误的是（）

A.用于片剂、胶囊剂等制剂检查

B.属于制剂通则检查项目

C.凡规定检查含量均匀度的片剂，一般不再进行重量差异检查

D.是药典中片剂、胶囊剂、合剂、糖浆剂等制剂通则检查项目

E.系指按规定方法测定每片（粒）的重量与平均片重之间的差异程度