如何用VB求两个数的最大公约数和最小公倍数?

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/06/04 17:36:18

如何用VB求两个数的最大公约数和最小公倍数?
请列出代码!

Private Sub Command1_Click() Dim n1&, m1&, m&, n&, r& n1 = InputBox("输入n1") m1 = InputBox("输入m1") If m1 > n1 Then '为了求最小公倍数,增加m,n变量 m = m1: n = n1 Else m = n1: n = m1 End If Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop Print n1; ","; m1; "的最大公约数为"; n Print "最小公倍数=", m1 * n1 / n End Sub
求采纳

如何用VB求两个数的最大公约数和最小公倍数? VB求两个数的最大公约数和最小公倍数 vb题：求两个整数的最大公约数和最小公倍数求两个数的最大公约数和最小公倍数的公式是什么? 求两个数的最大公约数和最小公倍数的算法 VB程序求三个数的最大公约数与最小公倍数 C++ 关于求两个数的最大公约数和最小公倍数用Java求两个数的最大公约数和最小公倍数 Pascal语言求两个数的最小公倍数和最大公约数 c语言题：求两个数的最小公倍数和最大公约数 C语言：求两个数的最小公倍数和最大公约数求两个数的最大公约数和最小公倍数用c++