vb编程输入两个正整数m和n，求最小公倍数
1个回答
展开全部
新建一个模块，代码如下：
Private Sub main()
m = Val(InputBox("m"))
n = Val(InputBox("n"))
a = m: b = n
Do
r = m Mod n
If r = 0 Then Exit Do
m = n
n = r
Loop
c = a / n
d = b / n
MsgBox c * d * n
End Sub
Private Sub main()
m = Val(InputBox("m"))
n = Val(InputBox("n"))
a = m: b = n
Do
r = m Mod n
If r = 0 Then Exit Do
m = n
n = r
Loop
c = a / n
d = b / n
MsgBox c * d * n
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
