请大家帮个忙，想做个计算两个数的最小公倍数的程序。我把图片上传了，大家看看。
我说下我的思路吧；
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
哎，我不知道了！
大家帮我看看！谢谢