[求助]关于计算最小公倍数
请大家帮个忙,想做个计算两个数的最小公倍数的程序。我把图片上传了,大家看看。
我说下我的思路吧;
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
哎,我不知道了!
大家帮我看看!谢谢
请大家帮个忙,想做个计算两个数的最小公倍数的程序。我把图片上传了,大家看看。
我说下我的思路吧;
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编辑过]