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

【正确答案】 B

【答案解析】[解析] 本题中a、b都是自然数，变量c初始值从0开始，每次增加a，c一定是a的整数倍，当第一次c能被b整除时结束循环，此时的c是第一个既能被a整除又能被b整除的数，所以c是a和b的最小公倍数。最后执行fun=c，将c作为函数的返回值，所以本题答案为B。