下面运行程序后，单击命令按钮，输出的结果是　【11】　。　　Private Sub Command1_Click( )　　　Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2#　　　For i=1 To 4　　　　a(i) =i　　　Next i　　　For i=3 To 6　　　　b(i) =i　　　Next i　　　s1=YAS(A) 　　　s2=YAS(B) 　　　Print"s1="；s1；"s2="；s2　　End Sub　　Function YAS(a( )As Integer)　　　Dim t#，i%　　　t=1　　　For i=LBound(A) To UBound(A) 　　　　t=t * a(i)　　　Next i　　　YAS=t　　End Function

下属于垃圾邮件危害的有（）。

A.占用网络带宽，造成邮件服务器拥塞，进而降低整个网络的运行效率

B.侵犯收件人的隐私权，侵占收件人信箱空间，耗费收件人的时间、精力和金钱

C.被黑客利用成助纣为虐的工具

D.妖言惑众，骗人钱财，传播色情等内容的垃圾邮件，已经对现实社会造成了危害