下列程序共执行了______次循环。Private Sub Command1_ Click () Dim intsum As Integer Dim i AS Integer Dim j As Integeri = 1j = 1do dointsum = intsum +j =j+2Print j; Loop until j ＞3 i = i+1Loop until i＞17PrintPrint intsumEnd Sub

A．14

B．15

C．14

D．13

急性气管-支气管炎的诊断条件是（），（），（），（）。