vb-求两个数的最大公约数

Function maxGYS(ByVal x As Integer, ByVal y As Integer) As Integer
Dim z As Integer
Do While y <> 0
z = x Mod y
x = y
y = z
...