单项选择题

有以下函数过程:
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