Dim m, n, r As Integer
成都一家集口碑和实力的网站建设服务商，拥有专业的企业建站团队和靠谱的建站技术，十余年企业及个人网站建设经验 ,为成都数千家客户提供网页设计制作,网站开发,企业网站制作建设等服务,包括成都营销型网站建设，高端网站设计，同时也为不同行业的客户提供网站设计制作、成都做网站的服务,包括成都电商型网站制作建设,装修行业网站制作建设，传统机械行业网站建设,传统农业行业网站制作建设。在成都做网站,选网站制作建设服务商就选成都创新互联公司。
Dim gbs As Integer
Dim h As Integer
Dim k As Integer
Dim p As Integer
m = CInt(Me.TextBox1.Text)
n = CInt(Me.TextBox2.Text)
If m n Then
h = m
m = n
n = h
End If
k = m
p = n
r = m Mod n
Do While (r 0)
m = n
n = r
r = m Mod n
Loop
gbs = (p * k) / n
Me.TextBox4.Text = CStr(gbs)
Me.TextBox3.Text = CStr(n)
求两个数的最小公倍数，
设有两个数 a，b (ab)
那么 最小公倍数就在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
最大公约数
do until a=b
if ab then
a=a-b
elseif ba then
b=b-a
end if
loop
msgbox (a)
最小公倍数
c = a
22:
If a Mod b = 0 Or b Mod a = 0 Then
If a b Then
MsgBox(a)
Else
MsgBox(b)
End If
Else
a = a + c
GoTo 22
End If
辗转相乘法是什么玩意？
先 求 最大公约数，再 求最小公倍数
最大公约数 可以用 辗转相除法
如 a，b的最大公约数为C，那么，最小公倍数为a*b/c
楼主 随便搜搜 就 有了
祝你顺利
