患者，女，60岁，因车祸后脑外伤，出现喷射状呕吐，CT示硬膜下血肿，急诊行开颅手术。

术后者头部不能翻转过剧，否则会导（）。

A.脑疝

B.休克

C.脑脊液漏

D.脑栓塞

E.脑挫伤

在窗体中添加一个命令按钮(名称为Command1)，然后编写如下代码：
Private Sub Command1_Click( )
Dim b,k
For k=1 to 6
B=23+k
Next k
MsgBox b+k
End Sub