VBfor循环编写两个正整数的最大公约数