设有以下函数过程： 　　Function fun(a As Integer，b As Integer) 　　 Dim c As Integer 　　 If a　　c=a：a=b：b=C 　　 End IF 　　c=0 　　 Do 　　c=c+a 　　 Loop Until c Mod b=0 　　 fun=c 　　End Function 　　若调用函数fun时的实际参数都是自然数，则函数返回的是()。

A．a、b的最大公约数

B．a、b的最小公倍数

C．a除以b的余数

D．a除以b的商的整数部分