单项选择题

某人设计了下面的函数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
<上一题 目录 下一题>
热门 试题

单项选择题
下面程序的输出结果是( ) Private Sub Command1_Click() ch$= ABCDEF proc ch Print ch End Sub Private Sub proc(ch As String) S= For k=Len(ch) To 1 Step-1 s=s＆Mid(ch,k,1) Next k ch=s End Sub
A．ABCDEF
B．FEDCBA
C．A
D．F
单项选择题
有如下函数： 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 该函数的返回值是( )
A．a乘以n的乘积
B．a加n的和
C．a减n的差
D．a除以n的商(不含小数部分)
相关试题