以下用户自定义函数
Function Func(a As Integer，b As Integer)As Integer
Static m As Integer．i As Integer
　m=0：i=2
　i=i+m+i
　m=i+a-i-b
　Func=m
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim k As Integer，m As Integer，p As Integer
　　k=4：m=1
　　P=Func(k,m)
　　Print P
End Sub
程序运行后，单击命令按钮，输出结果为

A．8

B．9

C．10

D．11

一患者颈部外伤后出现疼痛，四肢感觉运动正常，X线检查颈椎无骨折及脱位，未做任何治疗，于伤后1个月渐有右上肢麻木无力，考虑为迟发性脊髓损伤，最主要的原因是

A．血管压迫

B．血管栓塞

C．组织增生

D．局部不稳

E．韧带钙化