用PB语言求最大公约数和最小公倍数的程序是怎样的啊？

最大公约数 还有一种用的是递归o(∩_∩)o 咱c没学好

int li_1,li_2,i,li_max,li_count
li_1=long(em_1.text)

li_2=long(em_2.text)
if li_1>li_2 then
li_count=li_1
else
li_count=li_2
end if
li_max=1
for i=1 to li_count
if(mod(li_1,i)=0 and mod(li_2,i)=0) then
li_max=i
end if
next



//这个是求最小公倍数
if li_1>li_2 then
li_count=li_1
else
li_count=li_2
end if
int li_min
li_max=li_1*li_2
for i=li_count to li_max
if(mod(i,li_1)=0 and mod(i,li_2)=0) then
li_min=i
goto l_1
end if
next

可以利用辗转相减法来解.