怎么用VB求任意两个数的最小公倍数？

怎么用VB求任意两个数的最小公倍数？

求两个数的最小公倍数，
设有两个数 a，b (a>b)
那么 最小公倍数就在a 到 a*b之间
可以采用 for 语句使 变量i 从 a变化到 a*b
一旦出现结果（符合条件 i 能被 a 整除 且 i能被b整除 ）就停止循环（exit for）
下面是代码
Dim a&, b&, i&, result&
a = Val(InputBox("输入第一个数"))
b = Val(InputBox("输入第二个数"))
If a < b Then
t = a
a = b
b = t
End If
For i = a To a * b
If i Mod a = 0 And i Mod b = 0 Then
result = i
Exit For
End If
Next i
MsgBox "结果为" & result

function 可以是
Function zxgbs(ByVal a&, ByVal b&) As Long
If a < b Then
t = a
a = b
b = t
End If
For i = a To a * b
If i Mod a = 0 And i Mod b = 0 Then
zxgbs = i
Exit For
End If
Next i
End Function

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息