某人设计了下面的函数fun,功能是返回参数a中数值的位数 Function fun(a As Integer) As Integer Dim n% n = 1 Do While a 10 >= 0 n = n + 1 a = a 10 Loop fun = n End Function 在调用该函数时发现返回的结果不正确,函数需要修改,下面的修改方案中正确的是
举一反三
- 某人设计了下面的函数fun,功能是返回参数a中数值的位数 Function fun(a As Integer) As Integer Dim n% n = 1 Do While a 10 > 0 n = n + 1 __________ Loop fun = n End Function 要使程序正确运行,在横线_____处应该填写的语句是.
- 某人设计了下面的函数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
- 某人设计了下面的函数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: A) 把语句a\10＞=0改为a\10＜0 B: B) 把错句n=1改为n=0 C: C) 把语句a=a\10改为a=a Mod 10 D: D) 把循环条件a\10＞=0改为a\10＞0
- 设有如下函数定义：Function fun() As Integer Static a% fun = 3 * a + 1 a = a + 2End FunctionPrivate Sub Command1_Click() Dim n As Integer n = fun n = fun MsgBox (n)End Sub则在Command1_Click中 MsgBox 显示的结果是____________。
- 下列函数过程的定义语句中，错误的是（ ） A: Public fun as Function B: Function fun(n%) as Integer C: Function fun(Byval n%)