VB过程的递归调用，辗转相除法求最大公约数

最新推荐文章于 2024-09-24 08:48:12 发布

半月斩

最新推荐文章于 2024-09-24 08:48:12 发布

阅读量138

点赞数

分类专栏： VB 文章标签：开发语言

本文链接：https://blog.csdn.net/wanglongjiayou/article/details/133036065

版权

VB 专栏收录该内容

19 篇文章 0 订阅

订阅专栏

本文介绍了如何在VB编程中使用递归调用实现辗转相除法（欧几里得算法），通过PrivateFunctiongys函数计算两个整数的最大公约数，示例了Command1_Click事件的调用过程。

摘要由CSDN通过智能技术生成

VB过程的递归调用，辗转相除法求最大公约数

'过程的递归调用，辗转相除法求最大公约数
Private Function gys(ByVal m%, ByVal n%) As Integer
    Dim r%
    r = m Mod n 'm大或者n大都无所谓，这个不影响计算，由于辗转相除法的算法，最终大值会作为被除数，小值作为除数。
    If r = 0 Then
        gys = n
    Else
        gys = gys(n, r)
    End If
End Function
Private Sub Command1_Click()
    Dim x%, y%
    x = Val(Text1.Text)
    y = Val(Text2.Text)
    Print gys(x, y)
End Sub