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

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/10 22:07:44
如何用VB求两个数的最大公约数和最小公倍数?请列出代码!
xQMKQ+Y4'c!E41\dQ!edH&s_tJEuνwf[?[zrZ4huwx9c !×w~x] {3ZV$ L*9EX!e2Â*; Fd`Di!Y*NҬFoܣ*Ũ &%H]mf{ 2Gm&#o^&0d ԝ)!cd3XMf(BqLpDE6ڰdPZ$Ym%DZ0DJ0' *T% Qađޛ/2

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