有如下函数过程： Function gys(By Val x As Integer, ByVal y As Integer) As Integer Do While y＜＞0 preminder=x/y x=Y y=preminder Loop gys=x End Function 以下是调用该函数的事件过程： Private Sub Command1_Click Dim a As Integer,b As Integer a=10；b=2 x=gys(a，b) Print x End Sub 该程序的运行结果是______。