氧合指数：即PaO2/FiO2，动脉血氧分压与吸入氧浓度之比，正常值为400~500mmHg.

在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_click() Dim a(1 To 10) Dim p(1 To 3) k=5 For i=1 To 10a(i)=i Next i For i=1 To 3p(i)=a(i*i) Next i For i=1 To 3k=k+p(i)*2 Next i Print k End Sub 程序运行后，单击命令按钮，输出结果是 【13】 。