如下事件过程：　　Function Feed(x)　　　　If x ＜10 Then　　　　　　Feed=X　　　　Else　　　　　　Feed=10+x　　End If　　End Function　　Private Sub Command1_Click( )　　　　x=Val(Input Box(" "，0))　　　　pay=Feed(x)　　　　Print pay　　End Sub　　运行时在输入框内输入变量x的值为15，输出结果为()。

A．0

B．15

C．25

D．30

某患者，男性，65岁，两个月前开始感觉吞咽食物不通畅，但无其他的不适感觉，遂未在意，后来感觉吞咽食物困难逐步加重，伴有胸膈疼痛，面色暗黑，肌肤枯燥，舌偏暗脉涩。

该患者辨证后应该属于哪一证型（）

A.痰气交阻

B.瘀血内结

C.津亏热结

D.气虚阳微

E.中气不足