单选题有如下函数：
Function fun(a As Integer, n As Integer)As Integer
Dim m As Integer
While a＞=n
a=a-n
m=m+1
Wend
fun=m
End Function
该函数的返回值是______。

【正确答案】 D

【答案解析】[解析] Function fun过程中While循环的功能就是求a是m的多少整数倍，用变量m记录这一结果，也就等价于求a除以n的商，但是只取商的整数部分，然后将m的值赋给fun，作为返回值，故选D。