有如下函数过程： Function FunBy Val xAs Ingeger，ByVal yAs Integer)As IntegerDO While …y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=xEnd Function 以下是调用该函数的事件过程，该程序的运行结果是 Private SubCommand1_Click() Dim aAs IntegerDim bAs Integer a=100:b=25 x=Fun(a,b)Print xEnd SubA、0 B、25 C、50 D、100