男，35岁。因服吲哚美辛数片后出现腹痛，今晨呕咖啡样胃内容物300ml来诊。既往健康。对诊断最有帮助的检查是（）

A.血清胃泌素测定

B.B型超声检查

C.上消化道钡剂

D.急诊胃镜检查

E.胃液分析

Sub subl(x As Single, ByVal y As Single)
t=x
x=t/y
y=t Mod y
End Sub
Private Sub Form_Click()
Dim a As Single
Dim b As Single
a=5
b=4
sub1 a,b
Print "a="；a，"b="；b
End Sub
程序运行后，单击命令按钮，则a= (6) ，b= (7) 。