支气管-肺感染和阻塞是主要发病因素的疾病是（）

A.肺结核

B.支气管肺癌

C.慢性支气管炎

D.支气管哮喘

E.支气管扩张症

在窗体上画一个命令按钮Command1，然后编写如下代码： Private Sub Command1_Click() Dim Arr1(10) As Integer, Arr2(10)As Integer n=3 For i = 1 To 5 Arr1 (i)=i Arr2(n)=2 * n+i Next i Print Arr2(n); Art1 (n)End Sub运行程序后，单击命令按钮，输出结果是( )。

A．11 3

B．3 11

C．13 3

D．3 13