为计算a“的值，某人编写了函数power如下：Private Function power（a As Integer，n As Integer)As L

（34）为计算 a 的值，某人编写了函数 power 如下：

Private Function power (a As Integer, n As Integer) As Long

Dim p As Long

p=a

For k=1 To n

p=p*a

Next k

power=p

End Function

在调试时发现是错误的，例如 Print power(5,4)的输出应该是 625，但实际输出是 3125。程序需要修改。

下面的修改方案中有 3 个是正确的，错误的一个是（）。

A）把 For k=1 To n 改为 For k=2 To n

B）把 p=p*a 改为 p=p^n

C）把 For k=1 To n 改为 For k=1 To n-1

D）把 p=a 改为 p=1

设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：

Function fun(a As Integer，b As Integer)

While a＞b

a=a-b

Wend

fun=a

End Function

在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是

A．把a=a-b改为a=b-a

B．把a=a-b改为a=a＼b

C．把While a＞b改为While a＜b

D．把While a＞b改为While a＞=b

设a、b都是自然数，为求a除以b的余数，某人编写了以下函数： Eunction fun(a As Integer，b As Integer) While a＞b a=a—b Wend fun=a End Function 在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是（）。

A.把a=a-b改为a=b-a

B.把a=a-b改为a=a＼b

C.把While a＞b改为While a％b

D.把While a＞b改为While a＞=b

设a、b都是自然数，为求a除以b的余数，某人编写了以下函数：

Eunction fun(a As Integer，b As Integer)

While a＞b

a=a—b

Wend

fun=a

End Function

在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是（）。

A.把a=a-b改为a=b-a

B.把a=a-b改为a=a＼b

C.把While a＞b改为While a％b

D.把While a＞b改为While a＞=b

（29 ）设 a 、 b 都是自然数，为求 a 除以 b 的余数，某人编写了以下函数：

Function fun(a As Integer,b As Integer)

While a＞b

a=a-b

Wend

fun=a

End Function

在调试时发现函数是错误的。为使函数能产生正确的返回值，应做的修改是

A ）把 a=a-b 改为 a=b-a

B ）把 a=a-b 改为 a=a\b

C ）把 While a＞b 改为 While a＜b

D ）把 While a＞b 改为 While a＞=b

某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：

程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是（） 。

A. 语句max=1应改为max=a(1)

B. 语句For k=2 To 10应改为For k=1 To 10

C. If语句中的条件a(k)＞a(max)应改为a(k)＞max

D. 语句MaxValue=max应改为MaxValue=a(max)

某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下： Function MaxValue(aAsInteger)As Integer Dim max％：max=1 For k=2 TO 10 If a(k)＞a(max)Then max=k End lf Next k MaxValue=max End Function 程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是。 A．语句max=1应改为max=a(1) B．语句For k=2 TO 10应改为For k=1 TO 10 C．If语句中的条件a(k)＞a(max)应改为a(k)＞max D．语句MaxValue=max应改为MaxValue=a(max)

（31 ）某人编写了一个能够返回数组 a 中 10 个数中最大数的函数过程，代码如下：

Function MaxValue(a() As Integer) As Integer

Dim max%

max=1

For k = 2 To 10

If a(k)＞a(max) Then

max = k

End If

Next k

MaxValue = max

End Function

程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是

A ）语句 max = 1 应改为 max = a(1)

B ）语句 For k = 2 To 10 应改为 For k = 1 To 10

C ） If 语句中的条件 a(k)＞a(max) 应改为 a(k)＞max

D ）语句 MaxValue = max 应改为 MaxValue = a(max)

Function Isfab(x As Integer)As Boolean

Dim ii As Integer，b As Integer，C As Integer，flag As Boolean

flag=False

a=1：b=1

Do While x＜b

c=a+b

a=b

b=c

If x=b Then flag=True

Loop

Isfab=flag

End Function

测试时发现对于所有正整数X，函数都返回False，程序需要修改。下面的修改方案中正确的是（）。

A.把a=b与b=C的位置互换

B.把c=a+b移到b=C之后

C.把Do While xb

D.把If x=b Then flag=True改为If x=a Then flag True