博美犬，2岁，有阵发性腹痛，每天呕吐次数不等，听诊肠鸣音亢进，可排除的疾病是（）

A.肠痉挛

B.肠扭转

C.肠套叠

D.肠狭窄

E.肠粘连

在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：
Public x As integer
Private Sub Command1_Click()
x=10
Call s1
Call s2
MsgBox s
End Sub
Private Sub s1()
x=s+20
End Sub
Private Sub s2()
Dim x As integer
x=x+20
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为

A．10

B．30

C．40

D．50