有如下程序：
Option Base 1
Private Sub Form_Click()
Dim arr,sum
Sum＝0
arr＝Array(1,3,5,7,9,11,13,15,17,19)
For i＝1 TO 10
If arr(i))3＝arr(i)\3 Then
Sum＝Sum+arr(i)
End If
Next i
MsgBox Sum
End Sub
程序运行后，单击窗体，消息框的输出结果为______。

属于丙类传染病的包括（）

A.黑热病

B.急性出血性结膜炎

C.除霍乱、细菌性和阿米巴性痢疾、伤寒和副伤寒以外的感染性腹泻病

D.包虫病

E.丝虫病