有如下函数过程: Function Fun(By Val x As Ingeger, ByVal y As Integer)As Integer Do While … y $amp reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是调用该函数的事件过程,该程序的运行结果是 Private Sub Command1 Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a,b) Print x End Sub