设有以下函数过程：
Function fun (a As Integer,b As integer)
Dim c As Integer
If a<b Then
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的商的整数部分