某企业拟购买一套设备，厂商提供两种付款方式： 第一种，一次性立即付款，价格为1000

有下列函数过程：
Function fun1(ByVal x As Integer,ByVal y As Integer)As Integer
Do While y＜＞0
reminder=x MOd y
x=y
y=reminder
Loop
fun1=x
End Function
在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a=100
b=25
x=fun1(a,b)
Print x
End Sub

A．0

B．25

C．50

D．100

下列关于建设工程索赔的说法，正确的是（）。

A.承包人可以向发包人索赔，发包人不可以向承包人索赔

B.索赔按处理方式的不同分为工期索赔和费用索赔

C.工程师在收到承包人送交的索赔报告的有关资料后28天未予答复或未对承包人作进一步要求，视为该项索赔已经认可

D.索赔意向通知发出后的14天内，承包人必须向工程师提交索赔报告及有关资料

急性糜烂性出血性胃炎的主要临床表现是( )

A．呕血和黑便
B．食欲减退
C．恶心、呕吐
D．上腹部不适、隐痛、腹胀
E．上腹部烧灼感

数据录入过程中，生产厂家填写要求：改名后的厂家应按照改名后执行录入。

缓解信号（）：昼间-用检查锤在下部左右摇动，夜间-用检车灯在下部左右摇动。