观察中毒性肺炎的病情变化，最重要的是（）。

A.意识状态

B.体温、热型

C.脉搏、血压

D.呼吸频率及深度

E.痰的性状

下列程序段的运行结果是：
Private Sub Command1_Click()
Dim n AS Integer
I =21: n = 3
do while I＞n
I=I- n
Loop
Print I
End Sub
在窗体上打印的结果是______。

A．3

B．5

C．6

D．8