VB DO...LOOP求最大公因數