以下是一个能返回数组a中最大数的函数过程代码： Functionmaxval(a()AsInteger)AsInteger ;text-indent:37px Dimmax% ;text-indent:37px max=1 ;text-indent:37px Fori=2To10 ;text-indent:75px Ifa(i)>a(max)Thenmax= i ;text-indent:37px Nexti maxval=max EndFunction Private Sub Command1_Click() Dim x(1 To 10) As Integer For i = 1 To 10 x(i) = Int(Rnd() * 100) Print x(i); Next i Print Print maxval(x()) End Sub 程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是（ ）。 语句“maxval=max”应改为“maxval=a(max)” If语句“max=i”应改为“max=a(i)” 语句“max=1”应改为“max=a(1)” 语句“Fori=2To10”应改为“Fori=1To10” A. B. C. D.

以下是一个能返回数组a中最大数的函数过程代码： Functionmaxval(a()AsInteger)AsInteger ;text-indent:37px Dimmax% ;text-indent:37px max=1 ;text-indent:37px Fori=2To10 ;text-indent:75px Ifa(i)>a(max)Thenmax= i ;text-indent:37px Nexti maxval=max EndFunction Private Sub Command1_Click() Dim x(1 To 10) As Integer For i = 1 To 10 x(i) = Int(Rnd() * 100) Print x(i); Next i Print Print maxval(x()) End Sub 程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是（ ）。 语句“maxval=max”应改为“maxval=a(max)” If语句“max=i”应改为“max=a(i)” 语句“max=1”应改为“max=a(1)” 语句“Fori=2To10”应改为“Fori=1To10” A. B. C. D.

正确答案：A