vb编程输入两个正整数m和n,求最小公倍数
来源:百度知道 编辑:UC知道 时间:2024/05/10 06:17:02
新建一个模块,代码如下:
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