女，58岁，解柏油样便1周，每次50ml左右，每天2～3次，次数逐渐增加，伴头昏、乏力、心慌，“风湿性心脏病”病史30余年，心功能二级，影像检查如图，最可能的诊断是（）

A.急性肠梗阻

B.小肠淋巴瘤

C.小肠粘膜下出血

D.Crohn病

E.小肠结核

设有如下程序：
Private Sub Form_Cliok()
Dima As Integer,S As Integer
n=8
s=0
Do
s=s+n
n=n-1
Loop While n＞0
Print s
End Sub
以上程序的功能是 [7] ；程序运行后，单击窗体，输出结果为 [8] 。