VB Function过程求最大公约数和最小公倍数

最新推荐文章于 2024-01-29 21:13:45 发布

原创最新推荐文章于 2024-01-29 21:13:45 发布 · 510 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#开发语言

VB 专栏收录该内容

19 篇文章

订阅专栏

文章详细介绍了如何使用VB编程中的Function过程，通过辗转相除法计算两个整数a=16和b=12的最大公约数(gys)以及最小公倍数，然后在Command1_Click事件中调用并输出结果。

VB Function过程求最大公约数和最小公倍数

'Function过程求最大公约数和最小公倍数
Private Function gys(ByVal m%, ByVal n%) As Integer

    Dim r As Integer
    Do '辗转相除法
        r = m Mod n
        If r = 0 Then Exit Do
        m = n
        n = r
    Loop
    gys = n
End Function
Private Sub Command1_Click()
    Dim a%, b%, x%, y%
    a = 16: b = 12
    x = gys(a, b)
    y = (a * b) / x
    Print "最大公约数为：" & x
    Print "最小公倍数为：" & y
End Sub