有如下函数过程:Function Fun(By Val x As Ingeger,ByVal y As Integer) As IntegerDO While …y<

有如下函数过程：

Function Fun(By Val x As Ingeger，ByVal y As Integer) As Integer

DO While …y＜＞0

reminder=x Mod y

x=y

y=reminder

Loop

Fun=x

End Function

以下是调用该函数的事件过程，该程序的运行结果是

Private Sub Command1_Click()

Dim a As Integer

Dim b As Integer

a=100:b=25

x=Fun(a,B)Print x

End Sub

A．0

B．25

C．50

D．100