有如下函数过程： FunCtion FunBy vAl xAs ingEgEr,ByvAl yAs intEgEr)As intEgErDo whilE…y＜＞0 rEminDEr=x moD yx=yy=rEminDEr loop Fun=x EnD FunCtion以下是调用该函数的事件过程，该程序的运行结果是privAtE suBCommAnD1_CliCk() Dim AAs intEgEr Dim BAs intEgEr A=100:B=25 x=Fun(A，B) print x EnD suB
A、0
B．25
C、50
D．100