对于急性上消化道出血，原因不明时，一般主张

A．立即剖腹探查
B．尽可能保守治疗
C．立即X线钡剂检查
D．急诊胃镜检查
E．急诊B超检查

有如下程序：
Private Sub Command1_Click( )
a$="A WORKER IS OVER THERE"
x=Len(a ＄)
For i=1 To x-1
b$=Mid $(a $，i，2)
If b $="ER"Then s=s+1
Next i
Pdnt s
End Sub
程序运行后的输出结果是

A．1

B．2

C．3

D．4