vb:求两自然数m,n的最小公倍数?

问题描述:

vb:求两自然数m,n的最小公倍数?

求最大公约数(GetMaxDec) 最小公倍数(GetMinDec)。
参数a和b是两个数据,返回值即最大公约数或者最小公倍数。
Private Function GetMinDec(ByVal a As Long, ByVal b As Long) As Long
GetMinDec = a * b / GetMaxDec(a, b)
End Function
Private Function GetMaxDec(ByVal a As Long, ByVal b As Long) As Long
Dim c As Long
c = 1
Do While c 0
c = a Mod b
a = b
b = c
DoEvents: Loop
GetMaxDec = a
End Function

Private Sub Command1_Click()
Dim m, n, m1, n1, c
m = Val(InputBox("m="))
n = Val(InputBox("n="))
If m m1 = m: n1 = n
Do While m1 Mod n1 0
c = m1 Mod n1
m1 = n1
n1 = c
Loop
Print m * n / n1
End Sub

具体的语言已经忘了.可以提供的是思路.s = m * nIf语句找出m和n中的小项,输入a,另一值输入b.用For From To语句枚举从1到 根号 a的所有数,用If语句筛选因子(mod取余=零)并输入c,然后If语句检验c是否为b的因子,若是...