患者女性，42岁。因长期咳嗽，反复痰中带血或咯血7年入院。体检时胸片发现左上肺第2肋间近外侧胸壁处有直径约3.5cm×3cm大小的阴影，边缘模糊，痰液检查未发现癌细胞，亦未找到碳酸杆菌，支气管纤维镜检查阴性。

患者行左上肺叶加淋巴结切除，手术第2日病情平稳，患者可进行的活动是（）

A.下床或在床旁站立移步

B.扶持患者围绕病床在室内行走30分钟

C.可独自自由活动

D.在护士的协助下在床上进行四肢活动

E.卧床休息，减少活动

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Function fun1(n As Integer) As Integer
Dim k As Integer
If n=1 Then
k=1
Else
k=1+fun1(n-1)*2
End If
fun1=k
End Function
Private Sub Command1_Click()
Dim m As Integer,x As Integer
x=4
m=fun1(x)
Print m
End Sub
程序运行后，单击命令按钮，则窗体上显示的内容是______。

A) 4
B) 6
C) 9
D) 15