VB求最大公约,供参考交流