有以下函数过程： Function Gys(ByVal x As Integer，
题型：单项选择题
问题：
有以下函数过程：
Function Gys(ByVal x As Integer，ByVal y As Integer)As Integer
Do While y＜ >0
Remender=x Mod v
x=y
Y=Reminder
Loop
Gys=x
End Function
以下是调用该函数的事件过程，该程序的运行结果是
Private Sub Command1_Click( )
Dim a As Integer
Dim b As Integer
a=50
b=10
x=Cys(a，b)
Print x
End sub
A．0
B．10
C．50
D．100
