来源：http://www.mzvfp.com/read.php?tid=55600&page=3

作者：陈家驹

?gcd(15,21)
?gcd(125,25)
Function GCD(X, Y)
    If X < 0
        X = -x  && 欧拉算法
    Endif
    If Y < 0
        Y = -Y  && 返回 X 和 Y 的 GCD
    Endif
    If X = 0 Or Y = 0
        ? "GCD 错误"
    Endif
    GCD = Y
    Do While X > 0
        GCD = X
        x = Y % X
        Y = GCD
    Enddo
    Return GCD
Endfunc