A、Sub gcd(ByVal m%, ByVal n%) Dim r% r = m / n If r = 0 Then gcd = n Else gcd = gcd(n, r) End If End Sub B、Sub gcd(ByVal m%, ByVal n%) Dim r% r = m Mod n If r = 0 Then gcd = n Else gcd = gcd(n, r) End If End Sub C、Function gcd%(ByVal m%, ByVal n%) Dim r% r = m / n If r = 0 Then gcd = n Else gcd = gcd(n, r) End If End Function D、Function gcd%(ByVal m%, ByVal n%) Dim r% r = m Mod n If r = 0 Then gcd = n Else gcd = gcd(n, r) End If End Function