有如下函数过程: Function gys(ByVal x As Integer, ByVal y As Integer) As Integer Do While y <> 0 reminder = x Mod y x = y y = reminder Loop gys = x End Function 以下是调用函数的事件过程, Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = 100 b = 25 x = gys(a, b) Print x End Sub 该程序的运行结果是( )