有如下函数过程： Function funl(ByVal x As Integer,
题型：单项选择题
问题：
有如下函数过程： Function funl(ByVal x As Integer,ByVal y As Integer)As Integer Do While y＜＞0reminder=x Mod yx=yy=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=funl(a，b) Print x End Sub
A．0
B．25
C．50
D．100