单选题某人设计了下面的函数fun，功能是返回参数a中数值的位数：
Function fun(a As Integer) As Integer
Dim n%
n=1
While a/10＞=0
n=n+1
a=a/10
Wend
fun=n
End Function
在调用该函数时发现返回的结果不正确，函数需要修改。下面的修改方案中正确的是

A、把语句n=1改为n=0
B、把循环条件a/10＞=0改为a/10＞0
C、把语句a=a/10改为a=a Mod 10
D、把语句fun=n改为fun=a

【正确答案】 B

【答案解析】[解析] 原程序中，如果给参数a的值是一个正数，则a/10会始终大于或等于0，造成While语句死循环，所以循环条件不正确，可将a/10＞=0改为a/10＞0，故答案为B。