最简单的算法:求两个数的最小公倍数

这种算法来自一次我去参加面试,主考官问我这一算法,尽管我编出来了,但事后我与他交流,他写的算法让我确实佩服:

function min_multiple(x,y)
 dim r
 r = x
 while not (r MOD y = 0 )
  r = r + x
 wend
 min_multiple = r
end function<%
function min_multiple(x,y)
?dim r
?r = x
?while not (r MOD y = 0 )
? r = r + x
?wend
?min_multiple= r
end function
%>