请大家帮个忙，想做个计算两个数的最小公倍数的程序。我把图片上传了，大家看看。
我说下我的思路吧；
dim x,y,z
x=val(text1.text)
y=val(text2.text)
if x>=y then
z=x
else
z=y
end if
do

n=z mod x
m=z mod y
z=z+1
loop until n=0 and m=0
哎，我不知道了！
大家帮我看看！谢谢

是对的吧?
不过为什么要z=z+1呢
这样应该快一点点的吧
Private Sub Command1_Click()
Dim x, y, z, t
x = Val(Text1.Text)
y = Val(Text2.Text)
If x >= y Then
t = x
Else
t = y
End If
Do
z = z + t
n = z Mod x
m = z Mod y

Loop Until n = 0 And m = 0
MsgBox z
End Sub

[此贴子已经被作者于2006-5-23 12:06:09编辑过]

一个commmand和两个text
下面是求两个正整数的最小公倍数
Private Sub Command1_Click()
Dim m%, n%, t%, r%
n = Val(Text1.Text)
m = Val(Text2.Text)
If n<=0 or m<=0 then
Print "出错！"
End
mn = m * n
if m<n then t=m:m=n:n=t
Do while(n<>0)
r = m Mod n
m = n
n = r
Loop
Print "最小公倍数="，mn/m
End sub

三楼的是标准算法，楼主的是自己开发的，呵

谢谢你们啊，我做了。

if m<n then t=m:m=n:n=t
3楼的兄弟这句有用吗