python辗转相除法最大公约数和最小公倍数_归纳 | VB编程求解最大公约数、最小公倍数问题...

求解最大公约数、最小公倍数是VB编程算法求解的常见问题。

由于近期这个问题问的比较多，所以今天专门归纳一下。

求解时我们主要用到了辗转相除法。

求两个数的最大公约数

求解代码：

Private Sub Command1_Click() '最大公约数

m = InputBox("请输入第一个自然数")

n = InputBox("请输入第二个自然数")

If m < n Then t = m: m = n: n = t: r = m Mod n

Do While (r <> 0)

    m = n

    n = r

    r = m Mod n

Loop

MsgBox ("最大公约数为" & n)

End Sub

最小公倍数

程序代码：

Private Sub Command2_Click() '最小公倍数

Dim x%, y%, s!, t%

x = Val(InputBox("请输入第一个自然数"))

y = Val(InputBox("请输入第二个自然数"))

s = x * y

Do

    t = x Mod y

    If t = 0 Then Exit Do

    x = s

    y = t

Loop

MsgBox "最小公倍数为" &  s / y

End Sub

点击下面内容查看更多VB编程干货

◆

 VB编程语言基础知识点总结

◆

 VB数据类型、关键字、类型符总结

◆

 VB数组部分核心知识总结

◆VB中的循环控制结构讲解

◆

 VB中函数和过程的参数传递

◆

 Visual Basic 文件操作方法总结

◆

 VB数据库中的SQL语言

VB编程学习有难题，可长按识别下图添加老师微信，随时在线交流解答。

---

---

长按上图，关注跟我学VB公众平台