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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/03 16:34:01
如何用VB求两个数的最大公约数和最小公倍数?请列出代码!

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

如何用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
求采纳