Question

vb求四个数的最大公约数和最小公倍数怎么写

Answer 1

求两个数a,b的最大公约数有两种方法：分解成质因数法，辗转相除法。
用(a,b)表示a,b的最大公约数，则a,b的最小公倍数[a,b]=ab/(a,b).
a,b,c的最大公约数=（(a,b),c）,
a,b,c的最小公倍数=[a,b]c/((a,b),c),
以此类推。可以吗？

Answer 2

最大公约数
m = InputBox("输入第一个自然数")
n = InputBox("输入第二个自然数")
If m < n Then t = m: m = n: n = t
r = m Mod n
Do While (r <> 0)
m = n
n = r
r = m Mod n
Loop
End if
MsgBox ("最大公约数为" & n)
最小公倍数
Dim a%, b%, m%
a = InputBox("第一个数")
b = InputBox("第二个数")
For m = b To 1 Step -1
If a Mod m = 0 And b Mod m = 0 Then
Exit For
End If
Next
m = a * b / m
MsgBox "最小公倍数是" + CStr(m)