当前位置:首页
>
查试题
>
有如下函数过程: 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