求四个整数的最大公约数和最小公倍数的VB程序语句

到网上搜一个两个的,然后再调用!
a,b,c,d
e=bei(bei(bei(a,b),c),d);
f=yue(yue(yue(a,b),c),d);
其中,bei为求两个数公倍数的,yue为求两个数公约数的!