有如下函数过程： Function fun1(By Val x As Integer,By Val 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 Integera=100b=25x=fun1(a，b)Print x End Sub

A．0

B．25

C．50

D．100

家庭经济困难学生认定工作坚持实事求是，确定合理标准，由学生本人提出申请，实行（）和（）相结合的原则。