单项选择题

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