设有以下函数过程：
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的商的整数部分

当两个人之间的爱情没有了，才强调义务与道德。